如何将目录路径的一部分定义为变量以供进一步使用 R？

Question

关于我想使用 R 编写的脚本，我有一个小问题。问题如下：

我有一个相当长的脚本，其中生成了文件夹并且工作目录设置了好几次。由于我不是唯一一个将使用此脚本的人，因此我想以一种每个人都只需更改定义为XXX 的目录的方式编写它。这意味着 USER_1 可以使用如下所示的代码，而 USER_2 只需更改 XXX 的定义即可。

我尝试通过以下方式做到这一点：

XXX <- "C:/users/USER_1/Desktop"

setwd(XXX)

path_Folder1 <- "XXX"
new_Folder1 <- "MainFolder/"
dir.create(file.path(dirname(path_Folder1), new_Folder1))

path_Subfolder1 <- "XXX/MainFolder/."
new_Subfolder <- "Subfolder/"
dir.create(file.path(dirname(path_Subfolder1), new_Subfolder))

设置工作目录以及创建第一个文件夹都可以正常工作。但是，对于子文件夹，我收到以下错误消息：

Warning message:
In dir.create(file.path(dirname(path_Subfolder1), new_Subfolder)) :
  cannot create dir 'XXX\MainFolder\Subfolder', reason 'No such file or directory'

我是否错过了在此代码中添加一些内容？或者如何解决这个问题？

非常感谢您提前提供的帮助！

Answer 1

类似下面的东西应该可以工作：

# Let users change this variable
personal_dir <- "C:/users/USER_1/Desktop"

# Create main folder
main_folder <- "Mainfolder"
main_folder_path <- file.path(personal_dir, main_folder)
dir.create(main_folder_path)

# Create sub folder
sub_folder <- "Subfolder"
sub_folder_path <- file.path(personal_dir, main_folder, sub_folder)
dir.create(sub_folder_path)

我认为您的代码无法正常工作的原因是您在引号之间有 XXX，即它被处理为文字字符串而不是指向已保存值的指针。