使用源（＆＃34; filename.R＆＃34;）在Rmarkdown文档中嵌入图形图形

Question

我正在创建一个RMarkdown HTML文档，其中块正在寻找R文件：

```{r }
source("test.R")
```

test.R是：

library(ggplot2)
library(plotly)

data <- as.data.frame(datasets::mtcars)

create_plot <- function(data, var_x, var_y, var_color, var_size) {
data %>% ggplot(aes_string(
    x = var_x, 
    y = var_y, 
    color = var_color, 
    size = var_size)) + 
    geom_point()
}

p <- create_plot(data, "disp", "qsec", "vs", "hp")

p <- ggplotly(p)

print(p)

这可以内联Rmarkdown文档（RStudio），但不能在我编写文档时（在生成的HTML文件中没有显示图形输出）。我尝试了print(p)的几种替代方法，例如：

p <- as_widget(p)
print(p)

或

p <- as_widget(p)
htmltools::tagList(p)

但编织HTML文档时没有显示情节。也没有警告信息。有什么想法吗？