多くの文書を作成する

Question

私はRスタジオバージョン0.99.485を使用しています。私は1つの入力ベクトルに基づいて多くのレポートを行う必要があるので、私はR Markdown（Rスタジオ）のループのために書くことに決めました。

```{r forensis, results='asis', echo=FALSE} 
load(file = "E:/data/R/Forensic_reports/fdata.RData") 
for (i in 1:length(osobni_podaci$Oib)) { 
    cat(" \n### UPIT ZA OIB: ", oibreq[i], ' \n') 
    cat(' \n### STATUS OIB-A \n') 
    cat('Status: ',ifelse(oib_status$X_status[i] == 1, 'Aktivan', 'Neaktivan'), ' \n') 
    cat(' \n### OSNOVNI PODACI \n') 
    cat("Ime: ", osobni_podaci$Ime[i], ' \n') 
} 
``` 

したがって、いくつかのベクトルのすべてについて、私は同じ構造のレポートを書いています。

このようなコードを実行すると、すべてのレポートが1つのドキュメントに返されますが、レポートと同じ数のhtmlドキュメントが必要です。

ループが終了するたびにレポートを文書として保存するには、rチャンク内のforループの最後に何を追加する必要がありますか？このような.rmdでhttps://github.com/petrelharp/r-markdown-tutorial

：：私はここで答えを見つけ

Answer 1

--- 
title: "Visualization for `r input.file`" 
date: "`r date()`" 
--- 

```{r setup, echo=FALSE} 
if (!file.exists(input.file)) { stop("Can't find file.") } 
xy <- read.table(input.file) 
``` 

The file `r input.file` 
has `r nrow(xy)` observations: 

```{r plotit} 
plot(height ~ age, col=type, data=xy) 
legend("topleft", pch=1, legend=levels(xy$type), col=1:nlevels(xy$type)) 
``` 

このようなRスクリプト：

library(knitr) 
owd <- setwd("examples/thedata") # determines where output will go 
opts_knit$set(root.dir=".") # determines where code is evaluated 
file.names <- list.files(".",".*tsv") 
for (input.file in file.names) { 
    output.file <- gsub(".tsv$",".viz.html",input.file) 
    knit2html("../simple-template.Rmd", output=output.file, quiet=TRUE) 
} 

と.TSV入力の束Rスクリプトが評価されるディレクトリに格納されているファイル。