He encontradoalguna información acerca de cómo cambiar elvalue de unsliderInput con una expresión reactiva dentro de lasiderbarPanel. Pero en lugar de lavalueMe gustaria cambiarmin ymax del control deslizante con unnumericInput. Enesta guión paraserver.R dice que sololabel yvalue Se puede cambiar por deslizadores. ¿Hay alguna otra posibilidad de cambiar los valores mínimo / máximo desliderInput ¿Con una expresión reactiva?

Aquí hay un ejemplo:

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()
))

servidor.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)

})