使用應用函數dir.exist和dir.create

Question

我正在嘗試使用字符向量在我的工作目錄中創建一系列目錄。 沒有任何遞歸，只是迭代。 沒有什么花哨。 作為一個例子，我可以很容易地做到這一點：

lapply(state.name, dir.create)

它在我的工作目錄中創建了美國所有州的50個目錄。 如果我想使用，我可以輕松刪除它們：

unlink(state.name)

但是，我真正想做的是測試是否已存在任何目錄，然后創建那些尚未存在的目錄。 我在這里找到了類似的問題： 檢查目錄是否存在並創建如果不存在但是我在Stack Exchange上找到的所有內容以及通過其他Google搜索都要深入了解apply函數系列，或者解釋如何創建單個函數R中的目錄。我想做的遞歸檢查和創建似乎不存在。 我已經提出了以下內容，它可以工作，但實際上它只是檢查向量中的第一個條目。

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

如果我嘗試在file.exists中使用lapply函數，則會拋出錯誤。

任何幫助是極大的贊賞。 謝謝。

Answer 1

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

Answer 2

lapply(state.name[!state.name %in% dir()], dir.create)