带有 R 的 Shiny 应用程序中的相关输入

Question

说我有一个shiny::sliderInput：

...
sliderInput("input_1", "Title_1",
            min = 1, max = 10, value = 5)
...

是否可以引用min、max和/或value不同的sliderInput？这样做的用例是使第二个输入依赖于第一个输入。调整第二个输入的最小值的东西永远不会小于来自 的值input_1。

类似的东西（这不起作用）：

sliderInput("input_2", "Title_2",
             min = input_1$value, max = 10, value = input_1$value)

我的预感是这可能与renderUI，但不确定从哪里或如何开始？

Answer 1

这是在 中定义小部件的示例server.R：

library(shiny)
shiny::runApp(list(
  ui = fluidPage(
    numericInput("input_2", "select min value", value = 5),
    uiOutput("input_1")
  ),
  server = function(input, output) {
    output$input_1 <- renderUI({
      sliderInput("input_1", "Title_1", min = input$input_2, max = 10, value = 5)
    })

  }
))

所以它是对变化的反应 ui.R