test_that("select_fmt() works", {
locate_data_test_temp <-
locatr_example("worked-examples.xlsx") %>%
xlsx_cells_fmt(sheets = "pivot-annotations") %>%
select_fmt(row) %>% attributes()
testthat::expect_true("formats" %in% names(locate_data_test_temp) )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.