## 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.