将两个滑块输入用闪亮连接起来
将两个滑块输入用闪亮连接起来
提问于 2014-12-12 16:37:04
我正在为兰登森林开发一个闪亮的应用程序。小部件必须定义两个参数：
- 树的数量，在1到1000之间 sliderInput("nTree"，“树数”，min = 1，max = 100，值= 10)
- 要可视化的树，取决于第一个小部件的树数(输入$nTree)之间 sliderInput("iTree"，“树可视化”，min = 1，max = nTree，value = 10)
如何在第二个小部件中定义nTree？它的值取决于第一个小部件。
提前谢谢。
回答 1
Stack Overflow用户
回答已采纳
发布于 2014-12-13 11:17:43
您可以动态地使滑块如下所示：
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))页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/27448065
复制相关文章
相似问题
腾讯云开发者
