R中Shiny应用程序中的滑块输入答案

【问题标题】：sliderInput in Shiny app in RR中Shiny应用程序中的滑块输入
【发布时间】：2014-10-12 22:59:21
【问题描述】：

我有一个简单的问题，到目前为止我还没有找到解决方案。
在 ui.R 中，如果应用有一个 sliderInput 小部件，如下所示：

sliderInput(inputId="frame",label="Frame ID", min=172, max=356, value=172)

如何从 server.R 中的数据框中指定最小值和最大值？当用户从selectInput 小部件中选择一个值时，server.R 中的数据框将被子集化。对于每种情况，我希望最小值和最大值根据该数据框中的变量进行更改。

有什么例子吗？请帮忙。

【问题讨论】：

shiny.rstudio.com/tutorial/lesson6

标签： r shiny

【解决方案1】：

您可以使用 renderUI 创建反应式控件：

ui.R

uiOutput("myControl")

服务器.R

myDf <- reactive({
# code that subsets data.frame based on input[['somevars']]
})


output$myControl <- renderUI({
  mydataframe <- myDf()
  myVar <- mydataframe[, c("appvar")]
  minmax <- range(myVar)
  startVal <- sample(do.call(":", as.list(minmax)),1)
  sliderInput(inputId="frame",label="Frame ID", min=minmax[1], max=minmax[2][, value=startVal)
})

【讨论】：