tests/testthat/test-get-functions.R

In helseprofil/orgdata: Aggregating Original Data

dfna <- data.frame(INNLESARG = NA_character_, MANHEADER = NA_character_)

## INNLESARG -------------------------
test_that("Innlesarg inputs", {
  txt4 <- list(header = TRUE, skip = TRUE, ark = "Sheet1")

  expect_equal(get_innlesarg(spec = df01), txt4)
  expect_identical(get_innlesarg(spec = dfna), NA_character_)
})

## Input from Access ------------------------------
test_that("Output for singel column", {
  expect_identical(find_column_input(df02, "GEO"), "geo")
  expect_identical(find_column_input(dfna, "MANHEADER"), NA_character_)
})

## Manheader -------------------------
test_that("Manheader return list", {
  manOut <- list(old = c('2', '3'),
                 new = c("KJONN", "ALDER"))

  expect_identical(get_manheader(spec = df01), manOut)
  expect_identical(get_manheader(spec = dfna), NA_character_)
})