人大经济论坛 › 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › R语言论坛 › 请教如何实现shiny中for循环中的表格输出？

CDA数据分析研究院

商业数据分析与大数据领航教育品牌



经管云课堂

经管/金融/财会/社科/名师公开课



学术培训

Stata 空间计量 SSCI Python

贵宾：通行论坛特权+数据库权限
+案例库+下载特权 VIP：论坛特权+更多下载次数
+ccerdata数据库+更高阅读权限+……

发帖

楼主: drunkfish69

1524 9

[问答] 请教如何实现shiny中for循环中的表格输出？ [推广有奖]

0关注
1粉丝

博士生

74%

还不是VIP/贵宾

威望: 0 级
论坛币: 509 个
通用积分: 629.6114
学术水平: 16 点
热心指数: 25 点
信用等级: 13 点
经验: 5026 点
帖子: 166
精华: 0
在线时间: 535 小时
注册时间: 2018-8-9
最后登录: 2024-1-30

楼主

drunkfish69 发表于 2020-10-16 08:32:21 |只看作者 |坛友微信交流群|倒序 |AI写论文

相似文件

换一批

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有2个数据表，采购单头信息表和采购单明细采购项记录。想要实现在shiny输出一行头文件记录，然后列出明细记录表中相关订单记录。但在循环体内输出表格未能实现，代码简化了一下，如下，请高手不吝指教。

library(shiny)
library(DT)
ui <- fluidPage(
fluidPage(
titlePanel("Purchase Order"),
fluidRow(
DT::dataTableOutput("head"),
DT::dataTableOutput("PO")
)
)
)
server <- function(input, output) {
pohead <- structure(list(
po_num = c(110, 120, 130),
Vendor = c("A", "B", "A"),
Amount = c(1000, 300, 500)
),
row.names = c(NA, -3L),
class = c("tbl_df", "tbl", "data.frame")
)
podetail <- structure(list(
po_num = c(110, 110, 120, 120, 130),
Item = c(
"Toy Cat", "Toy Bear", "Screw",
"Tools", "Toy Sneak"
),
Amount = c(500, 500, 100, 200, 500)
),
row.names = c(NA, -5L),
class = c("tbl_df", "tbl", "data.frame")
)
# output$head <- renderDataTable(pohead)
# output$PO <- renderDataTable(podetail)
for (i in 1:length(pohead)) {
num <- pohead[i,]$po_num
output$head <- renderDataTable(pohead[i,])
output$PO <- podetail %>%
filter(po_num == num) %>%
renderDataTable()
}
}
shinyApp(ui = ui, server = server)

复制代码

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：for循环 Shiny 如何实现 Shin For

相关帖子

使用道具举报

沙发

owenqi

发表于 2020-10-16 11:39:01 |只看作者 |坛友微信交流群

没看明白，你 renderDataTable(podetail)的这个表，里面的搜索框输入po_num，比如110，那他不就已经只显示有关110的信息里吗？

使用道具举报

藤椅

drunkfish69 发表于 2020-10-16 13:56:03 |只看作者 |坛友微信交流群

没看明白，你 renderDataTable(podetail)的这个表，里面的搜索框输入po_num，比如110，那他不就已经只显示有关110的信息里吗？

问题就是web显示不出任何东西。

使用道具举报

板凳

owenqi

发表于 2020-10-17 08:41:45 |只看作者 |坛友微信交流群

drunkfish69 发表于 2020-10-16 13:56
问题就是web显示不出任何东西。

我用你的代码，38-39行去掉评论，41-47行评论掉。
然后运行以后就是我描述的结果，也是你形容的功能啊。

使用道具举报

报纸

drunkfish69 发表于 2020-10-17 09:45:38 |只看作者 |坛友微信交流群

我用你的代码，38-39行去掉评论，41-47行评论掉。

我知道38～39可以输出，但这不是我想要的结果。我想要的：

HEAD：订单110，供应商，订单总金额
Detail：订单110， ITEM#1，金额
Detail: 订单110， ITEM#2，金额

HEAD：订单120，供应商，订单总金额
Detail：订单120， ITEM#1，金额
Detail: 订单120， ITEM#2，金额

HEAD：订单130，供应商，订单总金额
Detail：订单130， ITEM#1，金额

使用道具举报

地板

drunkfish69 发表于 2020-10-18 11:42:21 |只看作者 |坛友微信交流群

library(shiny)
library(kableExtra)
library(reshape2)
ui <- fluidPage(
fluidPage(
titlePanel("Purchase Order"),
fluidRow(
tableOutput("PO")
)
)
)
server <- function(input, output){
pohead <- structure(list(
po_num = c(110, 120, 130),
Vendor = c("A", "B", "A"),
Amount = c(1000, 300, 500)
),
row.names = c(NA, -3L),
class = c("tbl_df", "tbl", "data.frame")
)
podetail <- structure(list(
po_num = c(110, 110, 120, 120, 130),
Item = c(
"Toy Cat", "Toy Bear", "Screw",
"Tools", "Toy Sneak"
),
Amount = c(500, 500, 100, 200, 500)
),
row.names = c(NA, -5L),
class = c("tbl_df", "tbl", "data.frame")
)
podetail <- cbind(podetail)
PO <- c()
for (i in 1:nrow(pohead)) {
num <- pohead[i, ]$po_num
PO <- rbind(PO, paste(colnames(pohead)))
PO <- rbind(PO, paste(pohead[i, ]))
temp <- podetail[podetail$po_num == num, ]
PO <- rbind(PO, paste(colnames(podetail)))
for (j in 1:nrow(temp)) {
PO <- rbind(PO, paste(temp[j, ]))
}
}
output$PO <- renderTable(PO, colnames = F)
}
shinyApp(ui = ui, server = server)

复制代码

这种写法有点蛋疼，两个记录的字段还要凑一样长。看来这种类型报表想用R取代Crystal Report有点想多了。

使用道具举报

7楼

owenqi

发表于 2020-10-19 01:46:31 |只看作者 |坛友微信交流群

如果我没有理解错的话，你想要的是这样？

library(shiny)
library(dplyr)
pohead <- structure(list(
po_num = c(110, 120, 130),
Vendor = c("A", "B", "A"),
Amount = c(1000, 300, 500)
),
row.names = c(NA, -3L),
class = c("tbl_df", "tbl", "data.frame")
)
podetail <- structure(list(
po_num = c(110, 110, 120, 120, 130),
Item = c(
"Toy Cat", "Toy Bear", "Screw",
"Tools", "Toy Sneak"
),
Amount = c(500, 500, 100, 200, 500)
),
row.names = c(NA, -5L),
class = c("tbl_df", "tbl", "data.frame")
)
podetail <- cbind(podetail)
#
ui <- fluidPage(
fluidPage(
titlePanel("Purchase Order"),
fluidRow(
tableOutput("PO")
)
)
)
server <- function(input, output){
tbl <- split(podetail, podetail$po_num)
for(i in 1:length(tbl)){
tbl[[i]] <- bind_rows(pohead[i,], tbl[[i]]) %>% relocate(Item, .before = 'Amount')
}
tbl <- bind_rows(tbl)
idx <- which(is.na(tbl$Vendor))
tbl$po_num[idx] <- NA
output$PO <- renderTable(tbl)
}
shinyApp(ui = ui, server = server)

复制代码

使用道具举报

8楼

drunkfish69 发表于 2020-10-19 11:07:44 |只看作者 |坛友微信交流群

如果我没有理解错的话，你想要的是这样？

比我写的好，但如果合并在一起列会很多；实际使用时HEAD和DETAIL就订单号作为检索关键字；其他字段内容差异很大，如果并在一起会很长一行，显示效果一般。最好HEAD和DETAIL能错开。附件是水晶报表的一个真实的采购订单（为了保密把中文encoding关了，中文变方块了），不要求和它一样，在浏览器显示就行，需要才打印；个人觉得详细项表格显示更好。不知道有没有更好的办法？