Ich habe gefundeneinige Informationen darüber, wie man das ändertvalue von asliderInput mit einem reaktiven Ausdruck innerhalb dersiderbarPanel. Aber statt dervalueIch möchte mich ändernmin undmax des Schiebereglers mit anumericInput. Imdiese Drehbuch fürserver.R es sagt das nurlabel undvalue kann für Schieberegler geändert werden. Gibt es eine andere Möglichkeit, die Min / Max-Werte von zu ändern?sliderInput mit einem reaktiven Ausdruck?

Hier ist ein Beispiel:

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)

})