r - 如何仅从 .R 文件导入函数而不执行整个文件

Question

假设我有一个 R 脚本 testScript.R

test <- function(){cat('Hello world')}
cat('Bye world')

在 R-console 中，我知道我可以导入函数， test()经过

source('testScript.R')

但是同时也会执行 cat('Bye world') .假设不允许创建/修改文件，有没有办法只导入函数， test()不执行 cat('Bye world') ?

Answer 1

哦，伙计……这很有趣。如果没有这样的暴行，我不知道有什么方法可以做到这一点:

# assume your two like script is stored in testScript.R
a <- readLines("testScript.R")
a <- paste(a, collapse="\n")
library(stringr)
func_string <- str_extract(a, "[a-z]+ <- function.+}")
test <- eval(parse(text=func_string))
> test()
Hello world

您当然需要使用正则表达式来提取您的函数。和 str_extract_all()如果有多个功能会很有帮助。祝你好运。