Question

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

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

sliderInput（＆＃34; nTree＆＃34;，＆＃34;树木数量＆＃34;，min = 1，max = 100，值= 10）
可视化的树，在1和树的数量（输入$ nTree）之间取决于第一个小部件

sliderInput（＆＃34; iTree＆＃34;，＆＃34; Tree to visualize＆＃34;，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))

在Shiny中连接两个滑块输入

1 个答案: