R动态设置目录

Question

基本R问题。 我似乎无法在以下代码中动态设置路径（假变量）。 这是更大的代码段的一部分，但我已将其跟踪到此。 我正在寻找一个文件夹，如果它存在，我想在该目录中创建一个只有时间的子文件夹，然后将RDS保存在该目录中。 下面的代码片段不太起作用。

目前，如果顶级目录存在，此代码将创建子目录，但随后将RDS保存在顶级目录而不是该子目录中。 基本上每当我运行它时，my_dir总是出现在my_dir < - file.path（out，subbie）设置的位置。

out <- './output'
subbie <- 'Hello, World'

my_dir <- file.path(out, subbie)

my_time <- format(Sys.time(), "%Y-%b-%d")

if (file.exists(my_dir)){
  my_dir <- dir.create(my_dir, my_time)
} else {
  my_dir <- dir.create(my_dir)
}

saveRDS(my_df, file=file.path(my_dir, paste0('_', my_time, '.RDS')))

Answer 1

my_dir <- dir.create(my_dir)

这里给变量my_dir赋值TRUE或FALSE 。 也许如果file.exists(my_dir)为FALSE ，你需要：dir.create（paste（my_dir，my_time，sep =“/”），recursive = TRUE）。 这不仅会创建路径的最后一个元素。