How to enable/disable some inputs based on another in R Shiny?

user_11514631 0
Viewed 90

I created a code in which I have 4 numericInputs named slider 1, 2, 3, and 4. Sliders 1, 2, and 3 are connected and this part of the code is doing what I want. However, I want to disable slider 1, 2, and 3 when the value of slider 0 is equal to 0 and enable when slider0=1. Below a reproducible example:

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      numericInput("slider0", "Slider 0: ", min = 0, max = 1, value = 1, step=1),
      numericInput("slider1", "Slider 1: ", min = 0, max = 1, value = 0.25, step=0.05),
      uiOutput("slider2"),
      uiOutput("slider3")),
    ))



server <- function(input, output) {
  output$slider2 <- renderUI({
    numericInput("slider2", "Slider 2", min = 0,  max = 1 - input$slider1, value = 0, step=0.05)
  }) 
  
  output$slider3 <- renderUI({
    numericInput("slider3", "Slider 3", min= 0, value = 1-input$slider1-input$slider2, max=1)
  })
  
  observeEvent(input$slider0, {
    if(input$slider0 == 0){
      shinyjs::disable("slider1")
    } else {
      shinyjs::enable("slider1")
    }
  })
  
  observeEvent(input$slider0, {
    if(input$slider0 == 0){
      shinyjs::disable("slider2")
    } else {
      shinyjs::enable("slider2")
    }
  })
  
  observeEvent(input$slider0, {
    if(input$slider0 == 0){
      shinyjs::disable("slider3")
    } else {
      shinyjs::enable("slider3")
    }
  })
  
}

runApp(list(ui = ui, server = server))
disable enable-if shiny r input
1 Answers

You can use show/hide and specify useShinyjs() in the ui. Also, one observer should suffice. Try this

library(shiny)
library(shinyjs)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      useShinyjs(),
      #numericInput("slider0", "Slider 0: ", min = 0, max = 1, value = 1, step=1),
      radioButtons("slider0","Choose", choices = c("0" = "0", "1" = "1"), inline = TRUE),
      hidden(
      numericInput("slider1", "Slider 1: ", min = 0, max = 1, value = 0.25, step=0.05),
      uiOutput("slider2"),
      uiOutput("slider3"))
      ),
    mainPanel()
  ))

server <- function(input, output) {
  output$slider2 <- renderUI({
    req(input$slider1)
    numericInput("slider2", "Slider 2", min = 0,  max = 1 - input$slider1, value = 0, step=0.05)
  }) 
  
  output$slider3 <- renderUI({
    req(input$slider1,input$slider2)
    numericInput("slider3", "Slider 3", min= 0, value = 1-input$slider1-input$slider2, max=1)
  })
  
  observeEvent(input$slider0, {
    print(input$slider0)
    if(input$slider0 == "0"){
      shinyjs::hide("slider1")
      shinyjs::hide("slider2")
      shinyjs::hide("slider3")
    } else {
      shinyjs::show("slider1")
      shinyjs::show("slider2")
      shinyjs::show("slider3")
    }
  })
  
}

runApp(list(ui = ui, server = server))
user_133332790
Related