R Shiny - Динамическая фильтрация из файла CSV - Строки пропали

Question

При использовании фильтрации и функции verbatimTextOutput в R Shiny строки, похоже, пропадают, когда я выбираю более одного из вариантов ввода в моем checkboxGroupInput.

Ниже приведен мой код.Любой совет?

Заранее спасибо.

infantmort <- read.csv("infantmort.csv", header = TRUE)

ui <- fluidPage(
  checkboxGroupInput("regioninputID",
                     "Select Region(s)",
                     choices = unique(infantmort$whoregion)
  ),

  mainPanel(
    verbatimTextOutput("regionoutputID"), width = "auto", height = "auto"
  )    
)

server <- function(input, output) {
  dataset <- reactive({ 
    as.data.frame(infantmort %>% select(whoregion, year, deathsinthousands) %>% 
      filter(whoregion == input$regioninputID) )


  })

  output$regionoutputID <- renderPrint({ dataset()


  })

}

shinyApp(ui = ui, server = server)

Answer 1

Вам нужно изменить фильтр с == на% в%

Следующие действия должны помочь

server <- function(input, output) {
  dataset <- reactive({ 
    as.data.frame(infantmort %>% select(whoregion, year, deathsinthousands) %>% 
      filter(whoregion %in%  input$regioninputID) )
  })