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