inst/templates/ui/slider.R

In c5sire/yml2shiny: A Good Title

source("ui_{{table_name}}_dict.R")

#' ui_{{column}}
#'
#' A shiny user interface fragment to select a value for {{column}}.
#'
#' @note This function is programmatically generated. Change with care.
#'
#' @return an input element
#' @family shiny_ui
#' @author Reinhard Simon
#' @export
ui_{{column}} <- function () {
  shiny::sliderInput("{{table_name}}_{{column}}",
                     ui_dict()[[toupper("{{column}}")]][["en"]],
                     {{column_min}},
                     {{column_max}},
                     {{column_default}})
}