inst/tests/testthat/test_combinatie_voorwaarden.R

In inbo/LSVI: Rekenmodule Lokale Staat Van Instandhouding van habitattypen

context("complexe combinatie van voorwaarden")

library(dplyr)
maakConnectiePool()
data_habitat <-
  data.frame(ID = 1, Habitattype = "7150", stringsAsFactors = FALSE)
data_voorwaarden <-
  data.frame(
    ID = 1,
    Criterium = "Vegetatie",
    Indicator = "sleutelsoorten",
    Voorwaarde = c("aantal sleutelsoorten", "aantal sleutelsoorten frequent",
                   "aanwezigheid specifieke sleutelsoorten"),
    Waarde = 0,
    Type = "Geheel getal",
    Invoertype = NA_character_,
    Eenheid = NA_character_,
    stringsAsFactors = FALSE
  )

describe("4 voorwaarden combineren", {
  it("combinatie vw sleutelsoorten bij 7150 gebeurt correct", {
    expect_equal(
      berekenLSVIbasis(
        Versie = "Versie 2.0",
        Kwaliteitsniveau = 1,
        data_habitat,
        data_voorwaarden
      )[["Resultaat_indicator"]] %>%
        filter(Indicator == "sleutelsoorten") %>%
        select(Status_indicator, Verschilscore),
      tibble(
        Status_indicator = FALSE,
        Verschilscore = -1
      )
    )
    expect_equal(
      berekenLSVIbasis(
        Versie = "Versie 2.0",
        Kwaliteitsniveau = 1,
        data_habitat,
        data_voorwaarden %>%
          mutate(Waarde = Waarde + 1)
      )[["Resultaat_detail"]] %>%
        filter(Indicator == "sleutelsoorten") %>%
        select(Voorwaarde, Waarde, Status_voorwaarde, Verschilscore),
      data.frame(
        Voorwaarde =
          c("aantal sleutelsoorten", "aantal sleutelsoorten frequent",
            "aantal sleutelsoorten frequent",
            "aanwezigheid specifieke sleutelsoorten"),
        Waarde = "1",
        Status_voorwaarde = c(FALSE, FALSE, TRUE, TRUE),
        Verschilscore = c(-0.666666666666667, -0.5, 0, 0),
        stringsAsFactors = FALSE
      )
    )
    expect_equal(
      berekenLSVIbasis(
        Versie = "Versie 2.0",
        Kwaliteitsniveau = 1,
        data_habitat,
        data_voorwaarden %>%
          mutate(Waarde = Waarde + 1)
      )[["Resultaat_indicator"]] %>%
        filter(Indicator == "sleutelsoorten") %>%
        select(Status_indicator, Verschilscore) %>%
        data.frame(),
      data.frame(
        Status_indicator = FALSE,
        Verschilscore = -0.5,
        stringsAsFactors = FALSE
      )
    )
    expect_equal(
      berekenLSVIbasis(
        Versie = "Versie 2.0",
        Kwaliteitsniveau = 1,
        data_habitat,
        data_voorwaarden %>%
          mutate(Waarde = Waarde + 2)
      )[["Resultaat_indicator"]] %>%
        filter(Indicator == "sleutelsoorten") %>%
        select(Status_indicator, Verschilscore) %>%
        data.frame(),
      data.frame(
        Status_indicator = TRUE,
        Verschilscore = 0,
        stringsAsFactors = FALSE
      )
    )
  })
})

library(pool)
poolClose(ConnectiePool)