我目前有一個看起來像的資料框
idx = c(1:6)
Prob = c("4 0.4","1.5 9","1.1 0.6","0.4 1","0.25 0.5","0.25 1.1")
D2 = data.frame(idx,Prob)
我正在嘗試使用 Rmarkdown 檔案創建一個回圈遍歷檔案中每個問題的小冊子。我當前的代碼看起來像這樣，我將它編織成 pdf：
{r echo=F, comment=NA, results='asis'}
for (i in 1:nrow(D2)){
a = D2%>% select(Prob) %>% slice(i) %>% pull
cat(" \n")
cat("\\vspace{1cm}")
cat(i,".",a)
cat(" \n")
cat("\\vspace{1cm}")
cat("\\begin{Form}
\\TextField[width = 16cm,%
height = 7cm,%
multiline=true,%
value = {%
Please show your work here
}%
]{}
\\end{Form}")
cat(" \n")
cat("\\vspace{7cm}")
cat(" \n")
cat("\\begin{Form}
\\TextField[width = 16cm,%
height = 3cm,%
multiline=true,%
value = {%
Please write your answer here
}%
]{}
\\end{Form}")
cat("\\newpage ")
}
當前輸出看起來像這樣，每一頁都有一個問題。
我想在一頁上有兩個問題，但我不知道該怎么做。任何幫助，將不勝感激。
uj5u.com熱心網友回復：
我不得不從您的代碼中洗掉空格，但這有效。我注釋掉了一些垂直空間。由于頁面大小，這會自動設定每頁兩個。（雖然，我確實\newpage在塊之前添加了 R Markdown，所以標題和所有內容都不會與表單在同一頁面上。
如果您想強制執行下一頁，您可以使用if末尾注釋掉的陳述句添加\\newpage到其他所有表單中。（通過查找模 AKA 余數來檢查i是偶數還是奇數。）
\newpage
```{r echo=F, comment=NA, results='asis'}
for (i in 1:nrow(D2)){
a = D2%>% select(Prob) %>% slice(i) %>% pull
cat(" \n")
cat("\\vspace{1cm}") # removed
cat(i,".",a)
cat(" \n")
# cat("\\vspace{1cm}")
cat("\\begin{Form}
\\TextField[width = 16cm,%
height = 6cm,%. # I reduced here by 1, as well
multiline=true,%
value = {%
Please show your work here
}%
]{}
\\end{Form}")
cat(" \n")
# cat("\\vspace{7cm}") # removed
cat(" \n")
cat("\\begin{Form}
\\TextField[width = 16cm,%
height = 3cm,%
multiline=true,%
value = {%
Please write your answer here
}%
]{}
\\end{Form}")
# if((i %% 2) == 0) cat("\\newpage ")
}
```
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/416898.html
標籤：
上一篇：使用for回圈呼叫鏈式方法