R闪亮-从CSV文件动态过滤-缺少行

Question

在R Shiny中使用过滤和verbatimTextOutput函数时，当我在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

您需要将过滤器从==更改为％in％

以下应该可以解决问题

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