overzichtstabellen.qmd

# Overzichtstabellen {#sec-overzichtstabellen}

```{r read-data}
library(tidyverse)
library(DT)
library(htmltools)

source("r/lookuptables.R")
source("r/functions.R")

options(DT.options = list(pageLength = 5, language = list(search = 'Filter:')))
resultdir <- 'resultaat'

draaitabel <- read_csv2(file.path(resultdir, "draaitabel_alles.csv"))

## do only once, to create a mapping table for the names
# tibble(originalName = names(draaitabel1)) %>%
#   write_csv2(file.path("data/deltares/names_mapping", "names_draaitabel1.csv"))

namesMapping <- read_csv2(file.path("data/deltares/names_mapping", "names_draaitabel1.csv"))

lookup = namesMapping$originalName
names(lookup) = namesMapping$niceName

draaitabel1 <- draaitabel %>%
  rename(all_of(lookup))


```

## Rivieren

```{r print-table-oevers, results='asis'}

mijnsysteem = "r"

mogelijke_zoneringen <- draaitabel1 %>% 
  filter(systeem == mijnsysteem) %>% 
distinct(ZONERING) %>%
  unlist() %>%
  unname()

# htmltools::tagList(
#   lapply(mogelijke_zoneringen, function(x)
#     maak_kenmerkentabel(
#       draaitabel1,
#       gekozen_systeem = mijnsysteem,
#       gekozen_zonering = x,
#       caption = paste('Draaitabel ecotopensystematiek voor systeem "', systemen[mijnsysteem], '" en zonering "', x, '"')
#     )
#   )
# )

## poging om headings te maken voor iedere zonering
for(x in mogelijke_zoneringen){
  print(
    htmltools::tagList(
      h3(x),
      maak_kenmerkentabel(
        draaitabel1,
        gekozen_systeem = mijnsysteem,
        gekozen_zonering = x,
        caption = paste('Draaitabel ecotopensystematiek voor systeem ', mijnsysteem, 'en zonering "', x, '"')
      )
    )
  )
}

```


## Meren

```{r print-table-aquatisch}

mijnsysteem = "m"

mogelijke_zoneringen <- draaitabel1 %>% 
  filter(systeem == mijnsysteem) %>% 
  distinct(ZONERING) %>%
  unlist() %>%
  unname()

htmltools::tagList(
  lapply(mogelijke_zoneringen, function(x) 
    maak_kenmerkentabel(
      draaitabel1, 
      gekozen_systeem = mijnsysteem, 
      gekozen_zonering = x,
      caption = paste('Draaitabel ecotopensystematiek voor systeem "', systemen[mijnsysteem], '" en zonering "', x, '"')
    )
  )
)
```

## Getijdenwateren

```{r print-table-hoge-uiterwaard}

# create several tables in one code chunk
# https://github.com/rstudio/DT/issues/67

# todo, check programmatically which zoneringen occur in selection Systeem == "g" 

mijnsysteem = "g"

mogelijke_zoneringen <- draaitabel1 %>% 
  filter(systeem == mijnsysteem) %>% 
  distinct(ZONERING) %>%
  unlist() %>%
  unname()

htmltools::tagList(
  lapply(mogelijke_zoneringen, function(x) 
    maak_kenmerkentabel(
      draaitabel1, 
      gekozen_systeem = c("g"), 
      gekozen_zonering = x,
      caption = paste('Draaitabel ecotopensystematiek voor systeem "', systemen[mijnsysteem], '" en zonering "', x, '"')
    )
  )
)

```