R/build.R

In UCLSPP/datasets: Datasets

# script called by Makefile for building with rmarkdown

args <- commandArgs(TRUE)
stopifnot(length(args) >= 1)

options(warn=2)

# ---------------------------------------------------------------------
site <- function() {
  rmarkdown::render_site(encoding = 'UTF-8')
}

# ---------------------------------------------------------------------
archives <- function() {
  collections <- sort(list.files(path = "./collections", pattern = "*.csv", full.names = TRUE))

  for (filename in collections) {

    collection_name <- tools::file_path_sans_ext(basename(filename))

    collection <- read.csv(filename)

    # cleanup
    collection$name <- trimws(collection$name)
    collection$path <- trimws(collection$path)

    # sort by name
    collection <- collection[order(collection$name), ]

    file_status <- file.exists(collection$path)

    if (!all(file_status)) {
      missing_files <- collection$path[!file_status]
      stop("Failed to process collection ", collection_name, "\nmissing files: ", paste(missing_files, collapse = ", "))
    }

    zipfile <- file.path("_site", paste(collection_name, "zip", sep = "."))
    zip(zipfile, files = collection$path, flags = "-j")
  }
}

do.call(args[1], args = as.list(tail(args, -1)))