tests/testthat/test-select_fmt.R

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) )
})
ianmoran11/locatr documentation built on June 14, 2020, 3:32 a.m.