时间戳

首页 > 解决方案 > 如何在闪亮的服务器中获取多个文件？

r - 如何在闪亮的服务器中获取多个文件？

问题描述

我正在尝试从文件夹中为服务器文件加载一些代码。我尝试了以下方法，但没有奏效。

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

sourcefiles <- list.files(full.names=TRUE, recursive = TRUE, pattern = "[.]R$")
sapply(sourcefiles, source, chdir = TRUE)

lapply(list.files(pattern = "[.]R$", recursive = TRUE), source)

此代码有效，但我必须单独调用它们。

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

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

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

标签： rfor-loopshinyapplylapply

解决方案

此代码获取主目录中的所有文件名并过滤 .R 中的名称并映射源匹配的名称。

library(purrr)
library(stringr)

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

推荐阅读