如何在R中的Shiny中读取sliderInput范围内的唯一有效观察值

Question

我有一个从 1 到 100 的列表（在 .csv 文件中），但每个术语之间的差异不一样。

例如，1、2、4、7、8、11、13、17、18、19、...、95、99、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)

我的问题是假设我在滑块中选择了3 到20 的范围，我希望selected_value

会告诉我唯一有效的观察结果：4,7,8,11,13,17,19。

我的代码的哪一部分应该修改？非常感谢任何愿意帮助我的人...

Answer 1

我不确定我是否完全理解您要查找的内容，但此应用将返回所选范围内的值：

library(shiny)

range <- 0:100

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

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

server <- function(input, output) {

  selected_values <- reactive({
    range[range >= input$slider[1] & range <= input$slider[2]] 
    })

  output$range <- renderPrint(selected_values())
}

shinyApp(ui,server)