将此函数的输出写入 R 中的 pdf 文件

Question

我写了如下函数，

CSVDimension <- function(.csv) {
  csv <- read.csv(.csv)
  dimValue <- dim(csv)
  print("The dimension of the dataset is:")
  headValue <- head(csv)
  print("The head of the dataset is:")
  return(list(dimValue,headValue))
}

这个函数在我们运行时打印给定数据集的维度，

> CSVDimension("path/to/file/dataset.csv")

我的下一步是将此结果打印到格式正确的 pdf 文件中。

如何将函数CSVDimension 的输出写入 R 中的 pdf 文件？

Answer 1

假设您已安装 pandoc（并在您的路径中），您可以将函数修改为

    CSVDimension <- function(.csv, .pdf) {
      csv <- read.csv(.csv)
      dimValue <- dim(csv)
      msg <- paste("The dimension of the dataset is:", paste(dimValue, collapse = " : "))
      print(msg)
      md <- sub("\\.pdf", ".md", .pdf)
      cat(msg, file = md)
      system(paste("pandoc -o", .pdf, md))
      return(dimValue)
}

其中 .csv 是 csv 文件的路径，而 .pdf 是生成的 pdf 输出的路径。