在Shiny中连接两个滑块输入

Question

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

• 树的数量,在1到1000之间

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

• 一棵树可视化,在1和树的数量(输入$ nTree)之间取决于第一个小部件

  sliderInput("iTree","Tree to visualize",min = 1,max = nTree,value = 10)

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

提前致谢.

Answer 1

你可以像这样动态制作滑块:

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))