inst/extdata/data-raw/locate_data_test.R

library(tidyverse)
library(locatr)

  locate_data_test <-
    locatr_example("worked-examples.xlsx") %>%
    xlsx_cells_fmt(sheets = "pivot-annotations") %>%
    locate_data(data_type == "numeric") %>%
    attr("data_cells")

usethis::use_data(locate_data_test, overwrite = TRUE)
ianmoran11/locatr documentation built on June 14, 2020, 3:32 a.m.