Reputation: 5696
I would like to create a new folder(newPack
) in the parent folder(pathPos
) of a given path(path
) using R functions.
path <- "/m/home/user/unix/R/3.5/stringi"
newPack <- "stringr"
pathPos <- stringi::stri_locate_last_fixed(path, '/')[-1]
pathNew <- paste(stringi::stri_sub(path, 1, pathPos), newPack, sep = '')
dir.create(pathNew)
I could achieve this using the above code, but I strongly feel there is a better option of doing it. If you know of any, please let me know.
Upvotes: 8
Views: 13014
Reputation: 2543
path <- "/foo/bar/baz"
newfolder <- "qux"
newpath <- file.path(dirname(path), newfolder)
print(newpath)
# "/foo/bar/qux"
dir.create(newpath)
Or, skipping the intermediate creation of newpath
:
path <- "/foo/bar/baz"
newfolder <- "qux"
dir.create(file.path(dirname(path), newfolder))
Upvotes: 13