R: создать новую папку по заданному пути

Question

Я хотел бы создать новую папку (newPack) в родительской папке (pathPos) данного пути (path), используя функции R.

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)

Я мог бы достичьэто с использованием приведенного выше кода, но я чувствую, что есть лучший вариант сделать это.Если вы знаете что-либо, пожалуйста, дайте мне знать.

Answer 1

path <- "/foo/bar/baz"
newfolder <- "qux"
newpath <- file.path(dirname(path), newfolder)
print(newpath)
# "/foo/bar/qux"
dir.create(newpath)

Или, пропуская промежуточное создание newpath:

path <- "/foo/bar/baz"
newfolder <- "qux"
dir.create(file.path(dirname(path), newfolder))