如何在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)