內聯R代碼在knitr中的第二次評估

Question

我正在嘗試創建一個數學測試生成器，它隨機化包含在測試中的問題。我想象在knitr中寫出20個左右的問題，然後按下一個按鈕來創建一個包含它們的子集的pdf。我在Rstudio中使用R Markdown。我想有點像一個解決方案：

```{r} 
start<-"";end<-"" 

if(0<runif(1)){ 
start1<-"```{r, echo=F}" 
end1<-"```" 
} 
``` 

`r start1` 
Question 1 
`r end1` 

但是，這導致PDF文件使用：

```{r, echo=F} 
Question 1 
``` 

我如何告訴knitr評估內嵌代碼第二次？還是有一種輕鬆的做事方式？

Answer 1

您可以使用cat爲：

--- 
title: "Math test" 
--- 

```{r Setup-Chunk, echo=FALSE} 
q1 <- "Note down the Pythagorean theorem?" 
q2 <- "Sum of angles of a triangle?" 
q3 <- "What is the root of $x^2$?" 
questions <- c(q1,q2,q3) 
selection <- sample(length(questions), 2) # by altering 2 you pick the number of questions 
``` 

```{r, results='asis', echo=FALSE} 
out <- c() 
for(i in selection){ 
    out <- c(out, questions[i]) 
} 
cat(paste("###", seq_along(selection), out,collapse = " \n")) 
``` 

視覺：