如何保留quarto::quarto_render创建的对象至当前环境及共享全局值？

能不能直接source Quarto文档？ #

不行。source()只能解析纯R代码，Quarto文档（.qmd）是混合了文本、标记语法和代码块的文件，强行用source()加载会因为识别不了标记语法报错，没法直接调用里面的变量。

更实用的共享方案 #

你现在用R脚本存全局值的思路本身就很合理，这里给你两个优化方向：

1. 纯R脚本集中管理全局值 #

把所有需要共享的变量、通用函数放在一个单独的R脚本里，比如globals.R：

# globals.R
project_name <- "用户行为分析项目"
data_dir <- "./data"
critical_threshold <- 0.75

然后在每个Quarto文档的开头代码块里加载：

source("globals.R")

2. 用Quarto的include功能共享代码块 #

如果需要共享的不只是变量，还有带注释的代码逻辑，可以创建一个专门的_shared_setup.qmd文件（加个空YAML避免解析问题）：

---
title: ""
---

```{r}
# 全局变量
project_name <- "用户行为分析项目"
# 通用数据清洗函数
clean_raw_data <- function(df) {
  df %>% 
    na.omit() %>% 
    mutate(across(c("click", "view"), ~ .x / max(.x)))
}

之后在需要的Quarto文档里直接导入：
```qmd
---
title: "月度分析报告"
---

{{< include _shared_setup.qmd >}}

# 报告内容
这里可以直接用`project_name`和`clean_raw_data()`函数了

特殊场景的折中办法 #

如果一定要从已有的Quarto文档里提取变量，可以用knitr::purl()把文档里的R代码抽成纯R脚本，再source：

# 把目标Quarto文档里的R代码提取成脚本
knitr::purl("target_doc.qmd", output = "extracted_code.R")
# 加载提取后的脚本
source("extracted_code.R")

但这种方式比较麻烦，不如提前把共享代码单独管理来得高效。

内容的提问来源于stack exchange，提问作者Rasmus Larsen