collections <- sort(list.files(path = "./collections", pattern = "*.csv", full.names = TRUE)) for (filename in collections) { collection_name <- tools::file_path_sans_ext(basename(filename)) cat(sprintf("### %s\n", collection_name)) zip_archive <- paste(collection_name, "zip", sep = ".") cat(sprintf("\n[%s](%s)\n\n", zip_archive, zip_archive)) collection <- read.csv(filename) # cleanup collection$name <- trimws(collection$name) collection$path <- trimws(collection$path) # sort by name collection <- collection[order(collection$name), ] for (i in 1:nrow(collection)) { cat(sprintf("- [%s](%s)\n", collection$name[i], collection$path[i])) } cat("\n----\n\n") }
Last Updated: r format(Sys.time(), "%b %d, %Y %l:%M %p")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.