搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  2000001.pdf
资料下载链接地址: https://bbs.pinggu.org/a-3330410.html
附件大小:
63.16 KB   举报本内容
有2个数据表，采购单头信息表和采购单明细采购项记录。想要实现在shiny输出一行头文件记录，然后列出明细记录表中相关订单记录。但在循环体内输出表格未能实现，代码简化了一下，如下，请高手不吝指教。
  1. library(shiny)
  2. library(DT)

  4. ui <- fluidPage(
  5. fluidPage(
  6. titlePanel("Purchase Order"),

  8. fluidRow(
  9. DT::dataTableOutput("head"),
  10. DT::dataTableOutput("PO")
  11. )
  12. )
  13. )

  15. server <- function(input, output) {

  17. pohead <- structure(list(
  18. po_num = c(110, 120, 130),
  19. Vendor = c("A", "B", "A"),
  20. Amount = c(1000, 300, 500)
  21. ),
  22. row.names = c(NA, -3L),
  23. class = c("tbl_df", "tbl", "data.frame")
  24. )

  26. podetail <- structure(list(
  27. po_num = c(110, 110, 120, 120, 130),
  28. Item = c(
  29. "Toy Cat", "Toy Bear", "Screw",
  30. "Tools", "Toy Sneak"
  31. ),
  32. Amount = c(500, 500, 100, 200, 500)
  33. ),
  34. row.names = c(NA, -5L),
  35. class = c("tbl_df", "tbl", "data.frame")
  36. )

  38. # output$head <- renderDataTable(pohead)
  39. # output$PO <- renderDataTable(podetail)

  41. for (i in 1:length(pohead)) {
  42. num <- pohead[i,]$po_num
  43. output$head <- renderDataTable(pohead[i,])
  44. output$PO <- podetail %>%
  45. filter(po_num == num) %>%
  46. renderDataTable()
  47. }

  49. }
  50. shinyApp(ui = ui, server = server)
复制代码


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

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

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

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2025-12-29 11:22