如何从R中提取.stan文件代码并在RMarkdown中展示（非{stan}块）

当然有可行的方案啦！不用依赖stanfit对象，直接读取本地.stan文件的内容就能实现，给你分享几个实用的操作方法：

方法1：基础R函数直接读取（最简便） #

你可以用基础R的readLines()或者tidyverse生态里readr包的read_file()来读取.stan文件的内容，再通过cat()函数把内容输出成RMarkdown能识别的代码块格式，这样就能实现语法高亮的Stan代码展示。

示例代码如下：

```{r echo=FALSE, results='asis'}
# 读取.stan文件内容，替换成你的文件路径
stan_code <- readLines("your_model.stan")

# 输出带Stan语法高亮的代码块
cat("```stan\n", paste(stan_code, collapse = "\n"), "\n```", sep = "")

这里的关键参数说明：
- `echo=FALSE`：隐藏读取代码的过程，只展示最终的Stan代码
- `results='asis'`：告诉knitr直接输出原始内容，而不是当成R输出处理

如果你的项目已经在用tidyverse，用`readr::read_file()`会更简洁，它会直接返回整个文件的字符串，不需要额外拼接换行符：
```r
```{r echo=FALSE, results='asis'}
library(readr)
stan_code <- read_file("your_model.stan")
cat("```stan\n", stan_code, "\n```", sep = "")

## 方法2：借助rstan包的辅助函数
如果你已经在使用rstan包，也可以用`read_stan_file()`函数读取.stan文件，它会返回一个`stanmodel`对象，你可以从这个对象里提取原始代码：
```r
```{r echo=FALSE, results='asis'}
library(rstan)
model <- read_stan_file("your_model.stan")
stan_code <- model@model_code

cat("```stan\n", stan_code, "\n```", sep = "")

这个方法的额外好处是：读取时会自动验证.stan文件的语法，如果文件存在语法错误，`read_stan_file()`会直接报错，帮你提前排查问题。

不管用哪种方法，最终都能在RMarkdown里展示出和{stan}代码块一样的高亮效果，完全满足你的需求~

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