Question

我正在尝试创建一个交互式的可视化/ 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)

我已经做了几次尝试合并两者，以便应用程序在显示数据表时将两个输入（如果选中）都考虑在内。我该怎么做？

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

Answer 2

您可以分别创建和渲染两个输出，但使它们出现在同一面板上并排放置吗

RShiny中的DataTable的多个选择

2 个答案: