从另一个脚本调用一个函数

Question

我想在另一个脚本中使用一个脚本中的函数，但我得到一个erorr或者没有任何事情发生，取决于我的代码语法。当我使用source("file_name)时，我得到了一个erorr，当我添加if(exists("function_name", mode = "function"))时，我什么都没得到。

希望你能提供帮助 祝你有美好的一天 或

Answer 1

Terru_theTerror是绝对正确的：您的源文件夹看起来有问题。

您可以使用getwd()检查工作目录的当前名称，并按dir()检查包含此目录的内容。如果您的源文件放在其他位置，您应该使用source()更改当前目录或包含源文件的路径：

source_dir_name <- "D:/Work/Sources"
source_file_name <- "file_Name.R"
source_with_path <- paste(source_dir_name,"/", source_file_name, sep = "")
# 
setwd(source_dir_name)
source(source_file_name)
# or
source(source_with_path)

Answer 2

以不同的方式，您可以使用file.choose选择代码脚本文件（避免与工作目录相关的问题），如下所示：

source(file.choose())