Interactive / Reactive change of min / max values of sliderInput

Question

I've found some information about how to change the value of a sliderInput with a reactive expression within the siderbarPanel. But instead of the value, I'd like to change min and max of the slider with a numericInput. In this script for server.R it says that only label and value can be changed for sliders. Is there any other possibility to change the min/max values of sliderInput with a reactive expression?

Here's an exmple:

ui.R:

shinyUI(pageWithSidebar(
  
  #Sidebar with controls to select the variable to plot
  sidebarPanel(
   
  #Numeric Inputs
    numericInput("min_val", "Enter Minimum Value", 1993),
    
    numericInput("max_val", "Enter Maximum Value", 2013),

  #Slider 
    sliderInput("inSlider", "Slider", 
                min=1993, max=2013, value=2000),

# Now I would like to change min and max from sliderInput
# by changing the numericInput.

  mainPanel()
))

server.R:

library(shiny)

shinyServer(function(input, output, session) {

  reactive({
    x<-input$min_val
    y<-input$max_val
    updateSliderInput(session, "inSlider", min=x, max=y, value=x)
  })
}

score 16 · Accepted Answer · answered Sep 09 '13 at 14:42

16

I think this is best accomplished by using shiny's dynamic UI functions via renderUI() and uiOutput(). Try out the following example:

ui.R

library(shiny)

shinyUI(pageWithSidebar(
  headerPanel("Test Shiny App"),

  sidebarPanel(
    #Numeric Inputs
    numericInput("min_val", "Enter Minimum Value", 1993),
    numericInput("max_val", "Enter Maximum Value", 2013),
    #display dynamic UI
    uiOutput("slider")
  ),

  mainPanel()
))

server.R

library(shiny)

shinyServer(function(input, output, session) {

  #make dynamic slider
  output$slider <- renderUI({
    sliderInput("inSlider", "Slider", min=input$min_val, max=input$max_val, value=2000)
  })

})

answered Sep 09 '13 at 14:42

David

9,284
3
41
40

Thanks @David , the sliders work! But I have problems to get an output value from the slider. I tried `input$slider`, but it seems that `slider` doesn't give back any values. Any ideas? – viktor_r Sep 11 '13 at 11:59
1

Just realised that I have to use `input$inSlider `. Sorry for bothering. – viktor_r Sep 11 '13 at 12:04
I often write this way uiOutput("outputSlider") and sliderInput("inputSlider", etc.) to avoid the confusion... – PatrickT Jan 03 '14 at 09:48
1

I think this is depreciated now. – scottyaz Jun 20 '14 at 00:10
@scottyaz what is the alternative? – Juraj Fiala Nov 26 '22 at 10:57

Interactive / Reactive change of min / max values of sliderInput

1 Answers1

Linked