In UCLSPP/datasets: Datasets

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")

UCLSPP/datasets documentation built on Dec. 16, 2019, 6:12 p.m.