diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R index 1f8af955e..6b11cffd4 100644 --- a/R/tm_g_distribution.R +++ b/R/tm_g_distribution.R @@ -601,7 +601,12 @@ srv_distribution <- function(id, gamma = c("shape", "rate"), unif = c("min", "max") ) - params_names <- map_distr_nams[[input$t_dist]] %||% names(params) + + if (!is.null(input$t_dist) && input$t_dist %in% names(map_distr_nams)) { + params_names <- map_distr_nams[[input$t_dist]] + } else { + params_names <- names(params) + } updateNumericInput( inputId = "dist_param1", diff --git a/man/srv_decorate_teal_data.Rd b/man/srv_decorate_teal_data.Rd index 91977f9b9..b0ed7159c 100644 --- a/man/srv_decorate_teal_data.Rd +++ b/man/srv_decorate_teal_data.Rd @@ -12,7 +12,8 @@ ui_decorate_teal_data(id, decorators, ...) \arguments{ \item{id}{(\code{character(1)}) \code{shiny} module instance id.} -\item{data}{(\code{reactive} returning \code{teal_data})} +\item{data}{(\code{teal_data}, \code{teal_data_module}, or \code{reactive} returning \code{teal_data}) +The data which application will depend on.} \item{expr}{(\code{expression} or \code{reactive}) to evaluate on the output of the decoration. When an expression it must be inline code. See \code{\link[=within]{within()}}