R Shiny中DataTable的多项选择答案

【问题标题】：Multiple Selects in for DataTable in RShinyR Shiny中DataTable的多项选择
【发布时间】：2019-01-20 13:54:14
【问题描述】：

我正在尝试创建一个交互式可视化/RShiny 应用程序，它允许我使用两个不同的选择器显示数据表，但到目前为止我只能让一个选择器工作。下面是一个选择器的代码。

# Create data table
  output$reviewstable <- DT::renderDataTable({
    reviews_sample <- reviews %>%
      sample_n(input$n) %>%
      select(Hotel_Address:Reviewer_Score, days_since_review:lng)

    DT::datatable(data = reviews_sample,
                  options = list(pageLength = 10), 
                  rownames = FALSE)

现在我想用以下代码添加另一个：

# req(input$Hotel_Name)
# reviews_from_selected_hotel <- reviews %>%
#   filter(Hotel_Name %in% input$Hotel_Name) %>%
#   select(Hotel_Address:Reviewer_Score, days_since_review:lng)

我已多次尝试将两者合并，以便应用在显示数据表时同时考虑这两个输入（如果已选择）。我该怎么做？

【问题讨论】：

标签： r shiny

【解决方案1】：

考虑绑定两个数据框的行：

rbind(reviews %>%
         sample_n(input$n) %>%
         select(Hotel_Address:Reviewer_Score, days_since_review:lng)
      ,
      reviews %>%
         filter(Hotel_Name %in% input$Hotel_Name) %>%
         select(Hotel_Address:Reviewer_Score, days_since_review:lng)
      )

【讨论】：

【解决方案2】：

你可以分别创建和渲染两个输出，但让它们出现在同一个面板上，以便它们并排

【讨论】：

是的，我可能可以创建两个单独的输出/数据表，但我的目标是根据多个选择创建一个输出。例如，我可以通过一个选择器选择 $Hotel_Name 和 $Review_Date。
就像 grid.arrange 一样，如果有类似的东西，grid.table 可能会起作用。我在其他线程中看到了 grid.table，您可以查看。这可能是解决方案