Как сделать фрейм данных, выбрав блестящее приложение в R?

Question

У меня есть фрейм данных с тремя столбцами:

x = data.frame(group=c("group1", "group2", "group3","group1","group3", "group4", "group2"),
               user=c("user1", "user3", "user5", "user9", "user14", "user18", "user24"),
               erro=c("error1", "error2", "error4", "error3", "error2", "error1", "error3") 
               )
x

Мне нужно создать блестящее приложение, которое показывает в таблице данных список строк из этой таблицы, которые имеют только error2 и error3. В качестве виджета управления мне нужен фильтр группового типа. Как я мог построить это? Я новенький в блестящем.

Answer 1

Вот начало:

library(shiny)
library(dplyr)

x = data.frame(group=c("group1", "group2", "group3","group1","group3", "group4", "group2"),
               user=c("user1", "user3", "user5", "user9", "user14", "user18", "user24"),
               erro=c("error1", "error2", "error4", "error3", "error2", "error1", "error3") 
)

ui = fluidPage(
  selectInput("grType", "Select group type", x$group, multiple = TRUE),
  tableOutput("myTable")
)

server <- shinyServer(function(input, output, session) {
  output$myTable <- renderTable({
    req(input$grType)
    x %>% filter(group %in% input$grType, 
                 erro %in% c("error2", "error3"))
  }) 
}
)
shinyApp(ui = ui, server = server)