Текст Pdf в R

Question

У меня есть текстовый файл (например Dimension.txt) с определенными в нем данных,

Я хочу написать функцию в R, который будет преобразовывать этот текстовый файл в файл PDF.

Я много искал, прежде чем я оказался здесь. Есть много мест, где люди спрашивали, как конвертировать 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

Вы можете выполнить следующие действия с помощью

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 

, который дает вам PDF документ с именем my_text.pdf, который выглядит следующим образом:

Answer 2

Вы можете попробовать использовать функцию textGrob? Конечно, это потеряет все форматирование. Если вы хотите сохранить форматирование текста orignal, вы, вероятно, не должны использовать R, а один из многих PDF-принтеров, доступных в Интернете, и пакетный скрипт.

Edit:

library(gridExtra) 

toPdf=function(textfile="pathToFile", pdfpath="pathToPdf"){ 
text=read.table(textfile, stringsAsFactors=FALSE) 
grb=textGrob(apply(text, 2, paste, collapse="\n")) 
pdf(pdfpath) 
grid.arrange(grb) 
dev.off() 
}