Интерактивное / реактивное изменение минимальных / максимальных значений sliderInput
я обнаружилнемного информации о том, как изменить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)
})