inst/extdata/data-raw/locate_test.R

In ianmoran11/locatr: Easier Tidying of Data from Spreadsheets

library(tidyverse)
library(locatr)

locate_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)

usethis::use_data(locate_test, overwrite = TRUE)