я обнаружилнемного информации о том, как изменитьvalue изsliderInput с реактивным выражением в пределахsiderbarPanel, Но вместоvalueЯ хотел бы изменитьmin а такжеmax ползунка сnumericInput, Вэто сценарий дляserver.R это говорит о том, что толькоlabel а такжеvalue можно изменить для слайдеров. Есть ли другая возможность изменить минимальное / максимальное значенияsliderInput с реактивным выражением?

Вот пример:

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)

})