R：为循环中的多个向量创建降价报告

Question

所有人

我有一个要在RMarkdown中创建的报告，该报告将基于不同的数据点创建具有相同格式的相同报告。

我有一个如下所示的数据框（df1），并使用选择向量在我的降价报告中使用。

PARK    WTG      FEONOFF        CODE    TEXT                         FMcount
MOZART  82262    FE_FM1667    FM1667    PIT Critical I2t Sum Max        187
MOZART  82257    FE_FM1667    FM1667    PIT Critical I2t Sum Max        61
BEEBE   82314    FE_FM500     FM500     Wind SpeedDiff multiple         10

然后，我正在运行以下脚本来提取每一行并获取我的降价报告的数据向量，然后创建并将报告保存到目录中。

require(data.table)
SiWTG <-c()
for (i in 1:length(df1)) { 
SW <- data.table(df1[i,])
SW <- data.table(SW)
SWTG <- data.table(unlist(SW[1]))
WTG <- as.numeric(SWTG[2])     #use this vector in markdown report
CODE <- as.character(SWTG[5])  #use this vector in markdown report

render("markdownCSS.rmd", output_file = "markdownReport.html")

SiWTG <- SW
}

我的降价报告将从两个列出的向量运行内部查询。这些向量用于填写要在报告中打印的数据。

现在，以上脚本将贯穿df1，列出并仅为最后一行创建降价报告，因为每一行都将覆盖前一行。

因此，我想让循环遍历数据帧并为每一行创建一个降价报告。每个output_file = "markdownReport.html"的标题都需要不同，以便我有三个单独的报告。

我想向我们提供WTG列中的每个项目，并像这样输入到降价报告标题中。

82262markdownReport.html
82257markdownReport.html
82314markdownReport.html

这样，我将在计算机上保存了3个单独的降价报告。