R中的文本到Pdf

Question

我有一个文本文件（例如 Dimension.txt ），其中包含某些数据，

我想在R中编写一个将该文本文件转换为pdf文件的函数。

在我到达这里之前，我用Google搜索了很多东西。有很多地方人们问过如何将pdf文件转换为文本，反之亦然。

这是我的代码：

FunctionFun <- function(.csv)
{
  sink('Dimension.txt')
  csv <- read.csv(.csv)
  dimValue <- dim(csv)
  print("The dimension of the dataset is:")
  print(dimValue)
  return(dimValue)
  sink('Dimension.txt', append=TRUE)
}

当我运行FunctionFun("tips.csv")时，我得到一个文本文件作为输出，如下所示：

现在，我的任务是编写一个单独的函数，将 Dimension.txt 转换为 Dimension.pdf 。

感谢您的帮助。

感谢。

Answer 1

您可以使用rmarkdown

执行以下操作

require(rmarkdown)
my_text <- readLines("YOUR PATH") 
cat(my_text, sep="  \n", file = "my_text.Rmd")
render("my_text.Rmd", pdf_document())
file.remove("my_text.Rmd") #cleanup

它为您提供了一个名为my_text.pdf的PDF文档，如下所示：

Answer 2

您可以尝试使用textGrob功能吗？ 当然，这将失去所有格式。如果您想保留原始文本格式，您可能不应该使用R，而是使用在线提供的许多pdf打印机之一和批处理脚本。

编辑：

Data source type: SQL 
Data source error: Microsoft SQL: Query timeout expired