data-raw/testxs.R

## code to prepare `testdata` dataset goes here
library(dplyr)
testxs <- readr::read_csv("data-raw/testdata.csv")
testxs <- testxs %>% mutate(across(everything(), set_units, "ft"))

testxs$ID <- c(letters, LETTERS)[1:nrow(testxs)]

usethis::use_data(testxs, overwrite = TRUE)
brownhr/xsarea documentation built on June 8, 2022, 10:46 p.m.