labels in distribution module resetting

[nikolas-burkoff]

If you remove the variable:

You lose these labels:

From #509

[donyunardi]

teal.modules.general/R/tm_g_distribution.R

Lines 563 to 567 in c106336

	map_distr_nams <- list(
	normal = c("mean", "sd"),
	lognormal = c("meanlog", "sdlog"),
	gamma = c("shape", "rate"),
	unif = c("min", "max")

Acceptance Criteria:

• The parameter label should adhere with the distribution selected.

[m7pr]

I can confirm I experience the issue. Everything taken from current main

[donyunardi]

Got an error when running the example code:

Warning in module(childScope$input, childScope$output, childScope, ...) :
  Automatic lockfile creation disabled. `mirai` and `renv` packages must be installed.
Warning: Error in [[: attempt to select less than one element in get1index
  84: %||%
  83: observe [/Users/unardid/Documents/dsx/insightsengineering/teal.modules.general/R/tm_g_distribution.R#604]
  82: <observer>
   3: runApp
   2: print.shiny.appobj
   1: <Anonymous>
Warning in processWidget(instance) :
  renderDataTable ignores ... arguments when expr yields a datatable object; see ?renderDataTable

Example code

data <- teal_data()
data <- within(data, {
  iris <- iris
})
#'
app <- init(
  data = data,
  modules = list(
    tm_g_distribution(
      dist_var = data_extract_spec(
        dataname = "iris",
        select = select_spec(variable_choices("iris"), "Petal.Length")
      )
    )
  )
)
if (interactive()) {
  shinyApp(app$ui, app$server)
}