# create a new directory
dir <- paste0(tempdir(), "/", gsub("\\s+|[[:punct:]]", "", Sys.time()))
dir.create(dir, recursive = TRUE)
# vendor the armadillo4r headers into the directory
vendor(dir)
# just a preview as Armadillo has over 100 files
head(list.files(dir, recursive = TRUE))
# cleanup
unlink(dir, recursive = TRUE)
Run the code above in your browser using DataLab