RMarkdown 文档 - 如何延迟内联代码段的 knitr 评估，直到处理完以后的块？

Question

我创建了一个 rmarkdown 报告，其中包含一堆代码块。我现在正在为其创建一个摘要首页，并希望包含一个内联计算，如

Blah blah blah summary stuff.... We found the mean to be `r mean(some_object_from_the_report)`. Blah blah blah more summary stuff.

作为 RMD 文件的开头，some_object_from_the_report 尚不存在。有没有办法告诉 knitr 推迟评估该代码 sn-p 直到后面的项目都被计算完？

感谢您的任何提示！

编辑：

建议在 knitr 选项中设置 echo=false。要么我做错了，要么对我的情况没有帮助。以下简短示例说明了这一点。

---
title: "Minimal test of delayed evaluation"
author: "sff"
date: "December 13, 2017"
output: html_document
---

```{r setup, include=TRUE}
knitr::opts_chunk$set(echo = FALSE)
```

## Summary

Summary of blahblahblah. Also here's a mean from the report: `r mean(testobj)`.


## Report

```{r report_stuff}
testobj <- c(1, 2, 3)
```

Knitr 抛出未找到对象错误。我是否错误地执行了该建议，或者该建议没有达到我想要的效果？

Answer 1

这是一个简单的工作示例，您在摘要之前设置第一个块，如果您需要调整其他内容，例如\graphicspath{}，可以在文档的最开头设置它。

如果包含列表的 Rdata 文件不存在，则在此块中创建一个列表。您需要使用文本中调用的值填充它。

当你第一次运行你得到的例子时

在第二次运行时你得到

请注意，这样可以避免运行冗长的计算并简单地保存结果。

\documentclass{article}    
\title{Testing how to save results for the abstract}
\author{}
\begin{document}
% this chunk comes just after begin{document}
<< init, echo=FALSE, eval=TRUE,results="hide" >>=
require(knitr)
summary_list_path <-paste0(getwd(),"/data/summary_list.Rdata")
if (!file.exists(summary_list_path)){
  summary_list<-list()
  summary_list[["A"]]<-list()
  summary_list[["B"]]<-list()
  summary_list[["A"]][["N"]]<-NA
  summary_list[["A"]][["p"]]<-NA
  summary_list[["B"]][["text"]]<-"extremely sad"
} else {
  load(summary_list_path)
}
@
\maketitle
\begin{abstract}
My population is \Sexpr{summary_list[["A"]][["N"]]} and the p value was \Sexpr{summary_list[["A"]][["p"]]} as a result I am \Sexpr{summary_list[["B"]][["text"]]}
\end{abstract}

<<chunk_1, echo=FALSE, eval=TRUE,results="hide" >>=
summary_list[["A"]][["N"]]<-20
summary_list[["A"]][["p"]]<-0.05
# save your list at the end of each chunk, that was you can also avoid 
# processing everyting.
save(summary_list,file=summary_list_path)
@

<<chunk_2, echo=FALSE, eval=TRUE,results="hide" >>=
summary_list[["B"]][["text"]]<-"happy"
save(summary_list,file=summary_list_path)
@

\end{document}