r - 在 Shiny 中连接两个 slider 输入

Question

我正在为随机森林构建一个 Shiny 的应用程序。小部件必须定义两个参数:

• 树的数量，介于 1 到 1000 之间

  sliderInput("nTree", "树的数量", min = 1, max = 100, value = 10)

• 要可视化的树，介于 1 和取决于第一个小部件的树数 (input$nTree) 之间

  sliderInput("iTree", "要可视化的树", min = 1, max = nTree, value = 10)

如何在第二个小部件中定义 nTree？它的值取决于第一个小部件。

提前致谢。

Answer 1

您可以像这样动态地制作 slider :

library(shiny)

ui =(pageWithSidebar(
  headerPanel("Test Shiny App"),
  sidebarPanel(
    sliderInput("nTree", "Number of trees", min = 1, max = 1000, value = 10),
    #display dynamic UI
    uiOutput("iTree")),
  mainPanel()
))

server = function(input, output, session){
  #make dynamic slider
  output$iTree <- renderUI({
    sliderInput("iTree", "Tree to visualise", min=1, max=input$nTree, value=10)
  })
}
runApp(list(ui = ui, server = server))