R/fct_dynamicInputs.R

In risktoollib/RTLappStrat: Asset Strategy

#' dynamicInputs
#'
#' @description Extract values from shiny inputs
#' @param uipattern string pattern to search in shiny inputs
#' @return An array of user input values
#' @export
#' @author Philippe Cote

dynamicInputs <-
function(uipattern) {
  eval(rlang::parse_expr(paste0(
    "input$", grep(pattern = uipattern, x = shiny::isolate(names(input)), value = TRUE)
  )))
}