tests/testthat/test-migrate.R

In ianmoran11/locatr: Easier Tidying of Data from Spreadsheets

test_that("migrate() works", {
  migrate_test_temp <-
    locatr_example("worked-examples.xlsx") %>%
    xlsx_cells_fmt(sheets = "pivot-annotations") %>%
    locate_data(data_type == "numeric") %>%
    locate(direction = "WNW", name = subject_type) %>%
    locate(direction = "W", name = subject) %>%
    locate(direction = "NNW", name = gender) %>%
    locate(direction = "N", name = name) %>%
    migrate()


  expect_identical(migrate_test_temp, locatr::migrate_test)
})