我正在尝试改变值sliderInput
动态地。现在的困难是我想改变sliderInput
具有一个值,到sliderInput
有一个范围,这似乎不起作用。
下面代码中的第一个操作按钮可以工作,而第二个操作按钮则不能执行其预期的操作。
是切换到的唯一可能性uiOutput
元素?
Code
library(shiny)
app <- shinyApp(
ui = bootstrapPage(
sliderInput("sld1", min = 0, max = 10, label = "y1", value = 5),
actionButton("acb1", "Change Value"),
actionButton("acb2", "Change Value to Range")
),
server = function(input, output, session) {
observeEvent(input$acb1, {
updateSliderInput(session, "sld1", value = 2)
})
observeEvent(input$acb2, {
updateSliderInput(session, "sld1", value = c(2,7))
})
})
runApp(app)