R/fct_disable_inputs.R

In jhmigueles/GGIRshiny: A GGIR shiny app

disable_inputs <- function(input_list,enable_inputs=T)
{
  # Toggle elements
  for(x in names(input_list))
    if(enable_inputs){
      shinyjs::enable(x)} else {
        shinyjs::disable(x) }
}