首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
社区首页 >问答首页 >如何在R中选择闪亮的应用程序来制作数据帧?

如何在R中选择闪亮的应用程序来制作数据帧?
EN

Stack Overflow用户
提问于 2020-01-27 06:26:40
回答 1查看 57关注 0票数 0

我有一个包含三列的数据框:

代码语言:javascript
代码运行次数:0
运行
复制
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的行列表。作为一个控件小部件,我需要一个组类型的过滤器。我怎么才能建造它呢?我是闪亮的新手。

EN

回答 1

Stack Overflow用户

回答已采纳

发布于 2020-01-28 00:57:24

这是一个开始:

代码语言:javascript
代码运行次数:0
运行
复制
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)
票数 1
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/59923321

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档