inst/testdata/data-script.R

In kasaai/gisadata: What the Package Does (One Line, Title Case)

library(gisadata)
library(tidyverse)
library(fs)

extract_dir <- gisa_unzip("gisa-data", extract_dir = path(tempdir(), "gisa-data"))

c("Auto Cat Report", "Auto Loss Development", "CLSP") %>%
  walk(function(folder) {
    folder_path <- path(extract_dir, folder)
    folder_path %>%
      dir_ls() %>%
      walk(function(file_path) {
        df <- file_path %>%
          read_csv(col_names = FALSE)

        if (folder == "Auto Loss Development") {
          df <- df %>%
            # Don't permute: SectionNumber, Province, EntryHalfYear, AccidentHalfYear
            mutate_at(vars(-one_of(c("X13", "X46", "X57", "X58"))), ~ sample(.x, length(.x))) %>%
            group_by(X13, X46)
        } else if (folder == "CLSP") {
          df <- df %>%
            # Don't permute: Section Number, Accident Year, Entry Year
            mutate_at(vars(-one_of(c("X13", "X18", "X19"))), ~ sample(.x, length(.x))) %>%
            group_by(X13)
        } else {
          df <- df %>%
            # Don't permute: SectionNumber, Province
            mutate_at(vars(-one_of(c("X13", "X46", "X57", "X58"))), ~ sample(.x, length(.x))) %>%
            group_by(X13, X46)
        }

        df %>%
          sample_n(min(n(), 100)) %>%
          ungroup() %>%
          write_csv(file_path, col_names = FALSE, na = "")
      })
    dir_copy(folder_path,
             path("inst/testdata/gisa-data", gsub(" ", "-", folder)),
             overwrite = TRUE)
  })