data-raw/convert-data.R

In stephlocke/datasauRus: Datasets from the Datasaurus Dozen

# here is how I converted
files = list.files(path = "./inst/extdata", pattern = "*.tsv", full.names = TRUE)

purrr::walk(files, function(x) {
  nm = gsub("\\.tsv", "", basename(x))
  nm = gsub("-", "_", nm)

  # make it slither
  nm = gsub("^_+", "", tolower(gsub("([A-Z])", "_\\1", nm)))
  nm = gsub("\\_\\_", "\\_", nm)
  if (grepl("wide", nm)) {
    header1 = scan(x, nlines = 1, what = character())
    header1 = paste(header1, c("x", "y"), sep = "_")
    .dat = readr::read_tsv(x, col_names = header1, skip = 2)
  } else {
    .dat = readr::read_tsv(x)
  }
  assign(nm, .dat)
  save(list = nm, file = paste0("data/", nm, ".rda"))
})

# remove box_plots rownames
box_plots = readr::read_tsv("./inst/extdata/BoxPlots.tsv")[, 2:6]
save(box_plots, file = "data/box_plots.rda")