如何在Shining server中查找多个文件？

我正在尝试从文件夹中加载服务器文件的一些代码。我尝试过以下方法，但都不起作用

sapply(list.files(pattern="[.]R$", path="R/", full.names=TRUE), source)

这段代码有效，但我必须单独调用它们

source(file.path("./R/modules/", "plot.R"),  local = TRUE)$value  

source(file.path("./R/modules/", "freq.R"),  local = TRUE)$value  

---

我正在寻找一种方法来应用一个函数来循环遍历文件夹中的文件。

此代码获取主目录中所有文件的名称，并筛选en in.R中的名称，并将源名称映射到匹配的名称

library(purrr)
library(stringr)

list.files(path = '~') %>%
    str_subset('\\.R') %>% 
    map(~source(.x))

---

我认为这个答案可以帮助您：

sapply（list.files（pattern=“[.R$”，path=“R/”，full.names=TRUE），source）

在普通脚本中工作。我想它在

shinny

工作时会出现问题。你能展示你的闪亮代码，并展示你如何使用它以及在哪里使用它吗？这似乎是可行的，但我无法在闪亮的应用程序中让它工作。你是否得到变量未找到错误？我没有得到错误，因为当我运行闪亮的应用程序时，模块似乎没有连接。是管道

walk（~source（.x，local=TRUE））

而不是

map（~source（.x））

有效吗？

source(file.path("./R/modules/", "plot.R"),  local = TRUE)$value  

source(file.path("./R/modules/", "freq.R"),  local = TRUE)$value  

library(purrr)
library(stringr)

list.files(path = '~') %>%
    str_subset('\\.R') %>% 
    map(~source(.x))