r - 使用应用函数 dir.exist 和 dir.create

Question

我正在尝试使用字符向量在我的工作目录中创建一系列目录。没有递归，只是迭代。没有什么花哨。例如，我可以很容易地做到这一点:

lapply(state.name, dir.create)

它在我的工作目录中创建了美国所有州的 50 个目录。如果我想使用，我可以轻松删除它们:

unlink(state.name)

但是，我真正想做的是测试是否已经存在任何目录，然后创建不存在的目录。我在这里发现了类似的问题:Check existence of directory and create if doesn't exist但是我在 Stack Exchange 和其他 Google 搜索中找到的所有内容要么深入研究 apply 系列函数，要么解释如何在 R 中创建单个目录。我想做的递归检查和创建似乎并不存在。我想出了以下方法，它确实有效，但实际上只是检查向量中的第一个条目。

if(!file.exists(state.name)) {lapply(state.name, dir.create)}

如果我尝试将 lapply 函数与 file.exists 一起使用，则会引发错误。

非常感谢任何帮助。谢谢。

Answer 1

lapply(state.name, function(x) if(!dir.exists(x)) dir.create(x))