# create a new directory
dir <- paste0(tempdir(), "/", gsub("\\s+|[[:punct:]]", "", Sys.time()))
dir.create(dir, recursive = TRUE, showWarnings = FALSE)
# vendor the cpp4r headers into the directory
vendor(dir)
list.files(dir, recursive = TRUE)
# cleanup
unlink(dir, recursive = TRUE)
Run the code above in your browser using DataLab