如何在 R 中的 Shiny 中包含滑块输入范围内的所有观察值答案

【问题标题】：How to include all the observations in the range of sliderInput in Shiny in R如何在 R 中的 Shiny 中包含滑块输入范围内的所有观察值
【发布时间】：2020-07-08 07:19:09
【问题描述】：

我有一个从1 到100 的列表，它们的共同点是1。

所以，我的滑块也有一个从min=1 和max=100 的范围。

我选择的范围将存储在selected_value（全球环境）中。

这是我的代码：

library(shiny)
ui <- fluidPage(
  fluidRow(
    column(4,
           sliderInput("slider","Slider Range", 
                       min = 0, max = 100, value = c(40, 60)))),

  fluidRow(
    column(4, verbatimTextOutput("range"))))

server <- function(input, output) {

  output$range <- renderPrint({input$slider})
  observe(selected_value <<- input$slider)}

shinyApp(ui,server)

我的问题是假设我在滑块中选择了33 到40 的范围，但是selected_value 只会显示33 和40。

但我想要的是它显示所有观察结果：33, 34, 35, 36, 37, 38, 39, 40。

我应该添加什么才能获得预期的结果？如果有人会非常感激可以帮帮我...

【问题讨论】：

你能做类似selected_value <<- input$slider[1]:input$slider[2]的事情吗？
@Ben 是对的，您可以将renderPrint 中的input$slider[1]:input$slider[2] 替换为input$slider。不知道为什么你需要 observe 声明虽然
@Ben 它有效！非常感谢 Ben，非常感谢
@bretauv 有没有更好的方法将它存储在全球环境中？
您可以将input$slider[1]:input$slider[2] 放在reactive 表达式中，然后在renderPrint 中调用此reactive 表达式。这样，您就可以在其他地方重复使用这个 reactive 表达式

标签： r user-interface shiny rstudio shinyapps

【解决方案1】：

下面是一个示例，展示了如何将范围置于reactive 环境中。如果您想在第一个 renderPrint 之外的其他地方重新使用此范围，这是必要的。在这里，例如，您可以在两个renderPrint 环境中使用它：

library(shiny)
ui <- fluidPage(
  fluidRow(
    column(4,
           sliderInput("slider","Slider Range", 
                       min = 0, max = 100, value = c(40, 60)))),

  fluidRow(
    column(4, 
           verbatimTextOutput("range"),
           verbatimTextOutput("range_2"))))

server <- function(input, output) {

  the_range <- reactive({
    input$slider[1]:input$slider[2]
  })

  output$range <- renderPrint({
    the_range()
  })

  output$range_2 <- renderPrint({
    the_range()
  })

}

shinyApp(ui,server)

由于reactive expressions在Shiny中确实是基本且重要的东西，我建议您遵循一些教程，例如this one。

【讨论】：