znalazłemtrochę informacji o tym, jak zmienićvalue asliderInput z reaktywną ekspresją wsiderbarPanel. Ale zamiastvalue, Chciałbym się zmienićmin imax suwaka za pomocą anumericInput. Wto skrypt doserver.R to mówi tylkolabel ivalue można zmienić dla suwaków. Czy jest jakaś inna możliwość zmiany wartości min / maxsliderInput z reaktywną ekspresją?

Oto przykład:

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)

})