inst/extdata/data-raw/migrate_test.R

In ianmoran11/locatr: Easier Tidying of Data from Spreadsheets

library(tidyverse)
library(locatr)

  migrate_test <-
    locatr_example("worked-examples.xlsx") %>%
    xlsx_cells_fmt(sheets = "pivot-annotations") %>%
    locate_data(data_type == "numeric") %>%
    locate(direction = "WNW", name = subject_type) %>%
    locate(direction = "W", name = subject) %>%
    locate(direction = "NNW", name = gender) %>%
    locate(direction = "N", name = name) %>%
    migrate()

usethis::use_data(migrate_test, overwrite = TRUE)