tests/testthat/test-text.R

In SKDE-Analyse/dynamiskTabellverk: Dynamisk tabellverk for Helse Nord RHF

context("text")

test_that("correct text is returned", {
  originalverdier <- list(
    inp_datasett = testdata,
    fane = "alle", # ?
    rad = c("boomr_hf", "behandlende_hf"),
    kol = "aar",
    verdi = "kontakter",
    aar = 2016,
    bo = 2,
    beh = 1,
    behandlingsniva = c("Døgnopphold", "Dagbehandling", "Poliklinikk", "Avtalespesialist"),
    alder = c("tmp", "tmp", "tmp", "tmp"),
    kjonn = c("tmp", "tmp"), # ?
    hastegrad2 = c("tmp", "tmp", "tmp", "tmp", "tmp"),
    prosent = FALSE,
    keep_names = FALSE,
    snitt = TRUE,
    fag = "Alle"
  )

  verdier <- originalverdier
  hjelpetekst <- lag_hjelpetekst(
    tab = verdier$fane,
    rad = verdier$rad,
    kol = verdier$kol,
    verdi = verdier$verdi,
    aar = verdier$aar,
    bo = verdier$bo,
    beh = verdier$beh,
    prosent = verdier$prosent,
    behandlingsniva = verdier$behandlingsniva,
    alder = verdier$alder,
    kjonn = verdier$kjonn,
    hastegrad2 = verdier$hastegrad2
  )
  expect_equal_to_reference(hjelpetekst, "data/ref_tekst1.rds")

  verdier$aar <- c(2011, 2013, 2014, 2015)
  verdier$fane <- "menisk"
  verdier$prosent <- TRUE
  verdier$keep_names <- TRUE
  verdier$snitt <- FALSE
  hjelpetekst <- lag_hjelpetekst(
    tab = verdier$fane,
    rad = c("aar", "behandlende_rhf", "alder"),
    kol = "hastegrad_drgtype_dogn",
    verdi = verdier$verdi,
    aar = verdier$aar,
    bo = verdier$bo,
    beh = verdier$beh,
    prosent = verdier$prosent,
    behandlingsniva = verdier$behandlingsniva,
    alder = verdier$alder,
    kjonn = verdier$kjonn,
    hastegrad2 = verdier$hastegrad2
  )
  expect_equal_to_reference(hjelpetekst, "data/ref_tekst2.rds")

  verdier <- originalverdier
  verdier$fane <- "random"
  for (bohf in c(1, 2, 3, 4, 5, 6)) {
    hjelpetekst <- lag_hjelpetekst(
      tab = verdier$fane,
      rad = c("boomr_sykehus", "behandlende_sykehus"),
      kol = "hastegrad",
      verdi = verdier$verdi,
      aar = c("2014", "2015", "2016"),
      bo = bohf,
      beh = verdier$beh,
      prosent = verdier$prosent,
      behandlingsniva = verdier$behandlingsniva,
      alder = verdier$alder,
      kjonn = verdier$kjonn,
      hastegrad2 = verdier$hastegrad2
    )
    expect_equal_to_reference(hjelpetekst, paste0("data/ref_tekst_bo", bohf, ".rds"))
  }

  for (behhf in c(1, 2, 3, 4, 5, 6, 7)) {
    hjelpetekst <- lag_hjelpetekst(
      tab = verdier$fane,
      rad = c("boomr_rhf", "aar"),
      kol = "behandlingsniva",
      verdi = verdier$verdi,
      aar = "2015",
      bo = verdier$bo,
      beh = behhf,
      prosent = TRUE,
      behandlingsniva = c("dag"),
      alder = c("1", "2", "3"),
      kjonn = "mann",
      hastegrad2 = "Akutt"
    )
    expect_equal_to_reference(hjelpetekst, paste0("data/ref_tekst_beh", behhf, ".rds"))
  }

  for (verdi in c(
    "rate",
    "liggetid",
    "liggedognindex",
    "liggedognrate",
    "drg_poeng",
    "drgrate",
    "drg_index",
    "random"
  )) {
    hjelpetekst <- lag_hjelpetekst(
      tab = verdier$fane,
      rad = c("behandler", "hastegrad"),
      kol = "kjonn",
      verdi = verdi,
      aar = c("2011", "2013", "2014", "2015"),
      bo = verdier$bo,
      beh = verdier$beh,
      prosent = verdier$prosent,
      behandlingsniva = c("dag", "dogn"),
      alder = "0-16",
      kjonn = verdier$kjonn,
      hastegrad2 = c("en", "to", "tre")
    )
    expect_equal_to_reference(hjelpetekst, paste0("data/ref_tekst_verdi_", verdi, ".rds"))
  }

  for (tab in c("dogn", "dag", "poli", "Informasjon")) {
    hjelpetekst <- lag_hjelpetekst(
      tab = tab,
      rad = verdier$rad,
      kol = "boomr_rhf",
      verdi = verdier$verdi,
      aar = verdier$aar,
      bo = 1,
      beh = verdier$beh,
      prosent = verdier$prosent,
      behandlingsniva = verdier$behandlingsniva,
      alder = verdier$alder,
      kjonn = verdier$kjonn,
      hastegrad2 = verdier$hastegrad2
    )
    expect_equal_to_reference(hjelpetekst, paste0("data/ref_tekst_tab_", tab, ".rds"))
  }

  expect_null(lag_hjelpetekst(rad = NULL, aar = "", verdi = ""))
  expect_null(lag_hjelpetekst(rad = "", aar = NULL, verdi = ""))
  expect_null(lag_hjelpetekst(rad = "", aar = "", verdi = NULL))

  expect_error(lag_hjelpetekst())
})

test_that("unit tests of text functions", {
  expect_equal(get_beh_text("boomr_rhf", 1), "bosatt i ulike opptaksomr\u00E5der p\u00E5 RHF-niv\u00E5, ")

  expect_equal(get_annet_text("drgtypehastegrad"), "fordelt p\u00E5 DRGtypeHastegrad")
})