Множественный выбор для DataTable в RShiny

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

Можете ли вы создать и визуализировать два выхода отдельно, но сделать так, чтобы они отображались на одной панели, чтобы они были рядом

Answer 2

Рассмотрим строку, связывающую два фрейма данных:

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