内联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")) 
``` 

视觉：