Копирование подпапок из папки в другую папку с помощью R

Question

В моем рабочем каталоге есть папка с именем 6a, в которой есть четыре подпапки.Я хочу создать еще одну новую папку с именем 6b в моем рабочем каталоге и скопировать подпапки из 6a в 6b.Я сделал это

 dir.create(paste0(getwd(),"/6b"), showWarnings = FALSE) # Create a folder 6b


 file.copy(from = paste0(getwd(), "/6a/"), 
           to = paste0(getwd(), paste0(getwd(),"/6b"), recursive = T)

Когда я делаю это, он копирует всю папку 6a внутри 6b вместо того, чтобы копировать подпапки 6b в 6a.Как я могу это исправить?