ICS_data.R

int_types <- c(
  "eons" = "eons", "eras" = "eras", "periods" = "periods",
  "epochs" = "epochs", "stages" = "ages"
)

for (int_type in names(int_types)) {
  # Get the old data from within the package
  old_dat <- eval(parse(text = paste0("deeptime::", int_type)))

  # Get ICS data from Macrostrat
  raw_dat <- read.csv(url(paste0("https://macrostrat.org/api/v2/defs/intervals",
                                 "?format=csv&timescale=international%20",
                                 int_types[int_type], "&true_colors=true")),
                      stringsAsFactors = FALSE)
  clean_dat <- raw_dat[, c("name", "b_age", "t_age", "abbrev", "color")]
  colnames(clean_dat) <- c("name", "max_age", "min_age", "abbr", "color")

  # Set abbreviations where they don't already exist
  no_abbr <- (is.na(clean_dat$abbr) | clean_dat$abbr == "")
  clean_dat$abbr[no_abbr] <-
    abbreviate(clean_dat$name, minlength = 1,
               use.classes = TRUE, named = FALSE)[no_abbr]
  clean_dat$abbr[clean_dat$name == "Stage 10"] <- "S10" # fix abbreviation

  # Add label colors based on luminance as per
  # https://stackoverflow.com/a/1855903/4660582
  # values are from https://www.itu.int/rec/R-REC-BT.601-7-201103-I/en
  clean_dat$lab_color <- white_or_black(clean_dat$color)

  assign(int_type, clean_dat)

  if (!identical(old_dat, clean_dat)) {
    do.call(eval(parse(text = "usethis::use_data")),
            list(as.name(int_type), overwrite = TRUE))
  }
}