我有一个包含三列的数据框:
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的行列表。作为一个控件小部件,我需要一个组类型的过滤器。我怎么才能建造它呢?我是闪亮的新手。
发布于 2020-01-28 00:57:24
这是一个开始:
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)
https://stackoverflow.com/questions/59923321
复制相似问题