すべての行についてpdfドキュメントを生成

Question

各行の.pdfドキュメントを生成しようとしていて、その行名でpdfドキュメントを保存しようとしています。カナダ、韓国、ブラジル：

canada <- c(100, 80, 100, 100, 20) 
korea <- c(100, 80, 100, 26, 65) 
brazil <- c(100, 90, 100, 30, 30) 
fruit <- rbind(canada, korea, brazil) 
colnames(fruit) <- c("apple", "orange", "banana", "grape", "kiwi") 
fruit 

price <- function(val){ 

    val <- tolower(val) 
    myrow <- fruit[val,] 
    nation <- tools::toTitleCase(val) 
    score.min <- c(myrow)[which.min(c(myrow))] 

    cat(paste0("In ", nation, " cheapest fruit costs ", score.min, " cents.")) 

} 

ので、出力のために、私は3つのPDF文書で終わるでしょう。ここではサンプルデータです。そして、それぞれのpdf文書には、「国の中で最も安い果物の価格がxセントです。

これまではrmarkdownを試しましたが、行名で新しいpdfを作成するプロセスを自動化する方法がわかりません。どんな助けでも大歓迎です。

Answer 1

プロットにPDFグラフィックスドライバを使用して単一の行を削除することによってpriceビットを編集する必要がありました。 priceの下には、質問に定義されているとおりです。中間ファイルは生成されず、パッケージは使用されません。これは、あなたの問題がファイルごとに1行しか含まれていないことを考えると、1ページ分のテキストまで十分です。

write_lines_pdf(month.name) 

代わりplot.new(); text(...)の代わりに適切な引数を指定しgplots::textplotの使用を検討：内蔵のベクトルmonth.nameを使用して

write_lines_pdf <- function(x, file = "pdffile", ...) { 
    if (!grepl("\\.pdf$", file)) file <- paste0(file, ".pdf") # append .pdf if not present 
    pdf(file) 
    plot.new() 
    text(x = 0, y = 1, labels = paste(x, collapse = "\n"), adj = c(0, 1), ...) 
    dev.off() 
} 

for(nm in rownames(fruit)) write_lines_pdf(capture.output(price(nm)), nm) 

別の例。

入力文字列がページの端から流れ出る場合は、strwrapを試して、次の行にテキストを折り返すか、cexグラフィックスパラメータを使用してテキストを小さくします。 xが入力テキストの場合：

write_lines_pdf(strwrap(x, 50)) # wrap at column 50 

write_lines_pdf(x, cex = 0.7) # make text smaller 

Answer 2

私はcat

price <- function(val){ 

    val <- tolower(val) 
    myrow <- fruit[val,] 
    nation <- tools::toTitleCase(val) 
    score.min <- c(myrow)[which.min(c(myrow))] 

    paste0("In ", nation, " cheapest fruit costs ", score.min, " cents.") 

} 

library(rmarkdown) 

for (x in rownames(fruit)) { 
    rmdfile = paste0(x,".Rmd") 
    cat(price(x), file=rmdfile) 
    render(input = rmdfile, output_format = "pdf_document") 
}