Как прочитать единственные достоверные наблюдения в диапазоне от sliderInput в Shiny in R - PullRequest
Новая
       31

Как прочитать единственные достоверные наблюдения в диапазоне от sliderInput в Shiny in R

0 голосов
/ 31 марта 2020

У меня есть список (в .csv файле) от 1 до 100, но с разницей между каждым термином это не то же самое.

Например, 1, 2, 4, 7, 8, 11 , 13, 17, 18, 19, ..., 95, 99, 100.

После этого выбранный диапазон будет сохранен в selected_value (Global Environment).

И здесь мой код: 

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 в ползунке, и я sh selected_value

скажет мне единственные действительные наблюдения: 4,7,8,11,13,17,19.

Какую часть моего кода следует изменить? Большое спасибо всем, кто захочет мне помочь ...

1 Ответ

0 голосов
/ 31 марта 2020

Я не уверен, что полностью понимаю, что вы ищете, но это приложение вернет значения в выбранном диапазоне: 

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