R中的Shiny應用程序中的slideInput

Question

我有一個簡單的問題，到目前為止我還沒有找到解決方案。
在ui.R中，如果應用程序具有如下所示的sliderInput小部件：

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

如何在server.R的數據框中指定最小值和最大值？ 當用戶從selectInput小部件中選擇一個值時，server.R中的數據幀將被子集化。 對於每種情況，我都希望最小值和最大值根據該數據幀中的變量進行更改。

有什么例子嗎？ 請幫忙。

Answer 1

您可以使用renderUI創建反應式控件：

ui.R

uiOutput("myControl")

server.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)
})