tutoring2

批量建立路径

李家翔 2019-01-12

在 test 路径批量创建100个路径

library(stringr)
library(magrittr)
path_list <- str_c("a",1:10)
if (!dir.exists("test")) {
    dir.create("test")
}

create_path <- function(x) {
    path = file.path("test",x)
    if (!dir.exists(path)) {
        dir.create(path)
    }
}

library(purrr)
path_list %>% 
    map(create_path)

This site is open source. Improve this page.