R 将数据表呈现为PDF文档
我有多个数据表,我需要打印在PDF文档中。HTML文档的工作方式是保留格式R 将数据表呈现为PDF文档,r,R,我有多个数据表,我需要打印在PDF文档中。HTML文档的工作方式是保留格式 artistTable1.data <- reactive({ df <- artistData.filtered() df <- df[c("old_level", "level", "reason", "rank", "apacDominant")] # names(df) <- c("ARTIST (click for wikip
artistTable1.data <- reactive({
df <- artistData.filtered()
df <- df[c("old_level", "level", "reason", "rank", "apacDominant")]
# names(df) <- c("ARTIST (click for wikipedia)","LEVEL", "REASON", paste0("RANK (of ", my.sum(artistData$hasLevel), " ranked artists)"), "RISK FLAG(S)")
datatable(df, filter = "none", escape = FALSE,
rownames = FALSE, caption = "HIGH LEVEL DATA SUMMARY",
options = list(columnDefs=list(list(targets = 0:3, class="dt-center")),
paging = FALSE, searching = FALSE, autoWidth = FALSE, lengthChange = FALSE, info = FALSE, ordering = FALSE),
class = 'cell-border hover compact')
})
output$artistTable1 <- renderDataTable({
artistTable1.data()
})
artistTable1.data您的代码对我来说不是现成的,因为您没有包含所需的库。由于这是一个一般的DataTable问题,我将使用帮助页面中生成的日期表(请参见?data.table
)
一种方法是使用。下面是一个可以保存在文本文件中的最小可行示例,例如dt.Rnw:
\documentclass{article}
\begin{document}
<<dt,results="asis">>=
library(data.table)
library(xtable)
DT = data.table(x=rep(c("b","a","c"),each=3), y=c(1,3,6), v=1:9)
xtable(DT,caption="cap")
@
\end{document}
然后可以将其编译成pdf(dt.pdf),其中包含一个格式良好的表格(显然可以扩展为承载多个表格):
您的代码对我来说不是现成的,因为您没有包含所需的库。由于这是一个一般的DataTable问题,我将使用帮助页面中生成的日期表(请参见?data.table
)
一种方法是使用。下面是一个可以保存在文本文件中的最小可行示例,例如dt.Rnw:
\documentclass{article}
\begin{document}
<<dt,results="asis">>=
library(data.table)
library(xtable)
DT = data.table(x=rep(c("b","a","c"),each=3), y=c(1,3,6), v=1:9)
xtable(DT,caption="cap")
@
\end{document}
然后可以将其编译成pdf(dt.pdf),其中包含一个格式良好的表格(显然可以扩展为承载多个表格):
谢谢你,塞巴斯蒂安!我有一个RMarkdown文件,它可以为我生成PDF和HTML格式的报告。knitr包使用webshot,但不保留HTML文档的格式。我可以把这个放进RMarkdown吗?谢谢你的耐心,我是一个业余的有光泽的开发人员。我想这是一个不同的问题,这似乎是在这里添加的。好像是你的朋友。谢谢塞巴斯蒂安!我有一个RMarkdown文件,它可以为我生成PDF和HTML格式的报告。knitr包使用webshot,但不保留HTML文档的格式。我可以把这个放进RMarkdown吗?谢谢你的耐心,我是一个业余的有光泽的开发人员。我想这是一个不同的问题,这似乎是在这里添加的。好像是你的朋友。
pdflatex dt.tex