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

knitr::opts_chunk$set(echo = FALSE)

library(xtable)
library(tidyr)
library(LSVI)
library(dplyr)

Habitatfiche <-
  geefInfoHabitatfiche(
    ConnectieLSVIhabitats = ConnectieLSVIhabitats,
    Versie = VersieRapportdeel,
    Habitattype = HabitatsubtypeFiche
  )

Versie <- geefVersieInfo(ConnectieLSVIhabitats) %>%
  filter(.data$VersieLSVI == VersieRapportdeel)

Habitatkarakteristieken

Habitatkarakteristieken <- Habitatfiche %>%
  select(
    Criterium = .data$Criterium.habitat,
    Indicator = .data$Indicator.habitat,
    "Beschrijving",
    "Maatregelen",
    Opmerkingen = .data$Opmerkingen.habitat,
    Referenties = .data$Referenties.habitat
  ) %>%
  distinct() %>%
  mutate(
    fCriterium =
      factor(
        .data$Criterium, , levels = c("Vegetatie", "Structuur", "Verstoring"),
        ordered = TRUE
      )
  ) %>%
  arrange(.data$fCriterium)

for (criterium in unique(Habitatkarakteristieken$Criterium)) {
  cat("__", criterium, "__", sep = "")
  Habitattabel <- Habitatkarakteristieken %>%
    filter(.data$Criterium == criterium) %>%
    select(
      "Indicator",
      "Beschrijving",
      "Maatregelen",
      "Opmerkingen",
      "Referenties"
    ) %>%
    xtable(digits = ncol(.))
  print(Habitattabel, type = "html", include.rownames = FALSE)
}

Beoordelingsmatrix

Beoordelingsfiche <- Habitatfiche %>%
  select(
    "Beoordeling",
    Criterium = .data$Criterium.beoordeling,
    Indicator = .data$Indicator.beoordeling,
    Opmerkingen = .data$Opmerkingen.beoordeling,
    Referenties = .data$Referenties.beoordeling,
    "Kwaliteitsniveau"
  ) %>%
  distinct() %>%
  inner_join(
    data.frame(Kwaliteitsniveau = c(1, 2),
               Referentieniveau = c(Versie$Kwaliteitsniveau1,
                                    Versie$Kwaliteitsniveau2),
               stringsAsFactors = FALSE)
  ) %>%
  select(-"Kwaliteitsniveau") %>%
  spread(key = Referentieniveau, value = Beoordeling) %>%
  mutate(
    fCriterium =
      factor(
        .data$Criterium, , levels = c("Vegetatie", "Structuur", "Verstoring"),
        ordered = TRUE
      )
  ) %>%
  arrange(.data$fCriterium)

for (Criterium in unique(Beoordelingsfiche$Criterium)) {
  cat("__", Criterium, "__", sep = "")
  Beoordelingsmatrix <-
    xtable(Beoordelingsfiche[Beoordelingsfiche$Criterium == Criterium,
                        c("Indicator",
                          if (ncol(Beoordelingsfiche) == 7) {
                            c(Versie$Kwaliteitsniveau1,
                              Versie$Kwaliteitsniveau2)
                          } else if (ncol(Beoordelingsfiche) == 6) {
                            if (
                              Versie$Kwaliteitsniveau1 == "niet van toepassing"
                            ) {
                              Versie$Kwaliteitsniveau2
                            } else {
                              Versie$Kwaliteitsniveau1
                            }
                          },
                          "Opmerkingen", "Referenties")])
  print(Beoordelingsmatrix, type = "html", include.rownames = FALSE)
}