Попробуйте это:
sum(file.info(list.files(".", all.files = TRUE, recursive = TRUE))$size)
В качестве альтернативы, если вы хотите пройти через код:
#get working directory
getwd()
#list all files in the directory
list.files(".", all.files = TRUE, recursive = TRUE)
#list the size of all individual files
file.info(list.files(".", all.files = TRUE, recursive = TRUE))$size
#sum all file sizes
sum(file.info(list.files(".", all.files = TRUE, recursive = TRUE))$size)