R/utils_ui.R

In risktoollib/RTLappStrat: Asset Strategy

#' uiSliderInput
#'
#' @description A utils function
#'
#' @return The return value, if any, from executing the utility.
#'
#' @noRd


# uiSliderInput <- function(ns, inputId, min = 0, max = 1, value = 1, step = 0.1) {
#   shiny::sliderInput(inputId = ns(inputId) , label = inputId, min = min, max = max, value = value, step = step)
# }

uiSliderInput <- function(inputId, min = 0, max = 1, value = 1, step = 0.1) {
  shiny::sliderInput(inputId = inputId, label = inputId, min = min, max = max, value = value, step = step)
}