如何在不使用 renderTable 函数的情况下使用 Shiny 和 R 生成简单的 html 表格？

Question

我对 R/Shiny 真的很陌生，我正在做一个项目，但遇到了问题。 事实上，根据我在文档中学到的知识，renderTable 函数可以从数据框生成数据表，但是，我不想使用这个函数，因为我自己想创建我的 HTML 表的结构例如，我希望它看起来像一张发票，其中行、列被合并等......除了使用 renderTable 至少不可能做到这一点，据我所知。

当我添加循环时，会发生这种情况

最后，这是我如何进行的：

突出显示的行 (1578) 是我添加上面生成的新行的位置，因此当我对其进行评论时，标题会正常显示。

Answer 1

您可以执行以下操作来生成正文：

library(htmltools)

rows <- vector("list", length = nrow(dat))

for(i in 1:nrow(dat)){
  rows[[i]] <- withTags(
    tr(
      td(dat[i, "column1"]),
      td(dat[i, "column2"])
    )
  )
}

body <- do.call(tags$tbody, rows)