Kleine wijzigingen aan captions en tekst (voornamelijk typo's en vergeten spaties)

Author: jeroenvdborre

source/bookdown/_template_habitats.Rmd

@@ -31,7 +31,7 @@ title <- ttl[[this_hab]]
 # `r title`
 Auteurs: `r auteurs %>%filter(Code == this_hab) %>%pull(Auteurs)`
 
-Dit hoofdstuk behandelt de habitattyppen in tabel \@ref(tab:{{id}}-habitattypen).
+Dit hoofdstuk behandelt de habitattypen in tabel \@ref(tab:{{id}}-habitattypen).
 ```{r {{id}}-habitattypen, message = FALSE}
 habitattypes %>%
   filter(typelevel == "main_type") %>%
@@ -153,7 +153,7 @@ data_area %>% filter(hab == this_hab) %>%
         escape = FALSE,
         col.names = c("","Oppervlakte in SBZ-H (ha)",
                       "Trend van de oppervlakte in SBZ-H"),
-        caption = paste0("Oppervlakte en trend van de oppervlakte in SBZ-H(", legende_caption(trend = b$sbz_trend),").")) %>%
+        caption = paste0("Oppervlakte en trend van de oppervlakte in SBZ-H (", legende_caption(trend = b$sbz_trend),").")) %>%
   kable_styling() %>%
   column_spec(2, width = "2.5cm") %>%
   column_spec(3, width = "2.5cm")
@@ -277,7 +277,7 @@ t[1,2] <- "flora\\&fauna (niveau VL)"
 
 t %>% #want we gaan dit renderen als een latex table
   kable(booktabs = TRUE, 
-        caption = "Overzicht van de indicatorscores van de criteria ‘Typische soorten’ en ‘Ruimtelijke samenhang’, met vermelding van hun belang (b = belangrijk, zb = zeer belangrijk). \\textcolor{red}{(OPGELET, dit is op basis van gegevens uit 2019)}",
+        caption = "Overzicht van de beoordeling van de criteria ‘Typische soorten’ en ‘Ruimtelijke samenhang’, met vermelding van hun belang (b = belangrijk, zb = zeer belangrijk). \\textcolor{red}{(OPGELET, dit is op basis van gegevens uit 2019)}",
         format = "latex",
         escape = FALSE) %>%
   kable_styling() %>%
@@ -310,7 +310,7 @@ height_figure <- 1 + 0.5 * nbhab
 ```
 
 
-```{r {{id}}-specifiekestructuren-lsvi-habitat-trend, fig.cap = paste0("Verschil aandeel habitat in goede toestand in Vlaanderen (links) en binnen het netwerk van SBZ-H (rechts). Voor schattingen o.b.v. een steekproef geven de horizontale vlaggen het 95%-betrouwbaarheidsinterval weer. Enkel steekproefpunten met minstens twee metingen in de periode ", ifelse(this_hab == "bos", "2009-2024", "2013-2024"), "zijn meegenomen."), eval = (this_hab != "rots"), fig.height = height_figure}
+```{r {{id}}-specifiekestructuren-lsvi-habitat-trend, fig.cap = paste0("Verschil aandeel habitat in goede toestand in Vlaanderen (links) en binnen het netwerk van SBZ-H (rechts). Voor schattingen o.b.v. een steekproef geven de horizontale vlaggen het 95%-betrouwbaarheidsinterval weer. Enkel steekproefpunten met minstens twee metingen in de periode ", ifelse(this_hab == "bos", "2009-2024", "2013-2024"), " zijn meegenomen."), eval = (this_hab != "rots"), fig.height = height_figure}
 d <- lsvi_habitat_trend %>%
   filter(parameter == "verschil_aandeel_gunstig_abs" &
            sbzh != "Buiten" &
@@ -427,7 +427,7 @@ data_struc_func_final %>%
         col.names = c("Habitat",
                       rep(c("Trend", "Periode", "Gem. N. jaar"), 2),
                       "Conclusie"),
-        caption = paste0("Overzicht van de trend, periode van de trend en gemiddeld aantal jaren voor de berekening van de trend voor de habitatkwaliteit, voor Vlaanderen en binnen SBZ-H. De laatste kolom toont de eindconclusie voor de habitatkwaliteit.")) %>%
+        caption = paste0("Overzicht van de trendrichting, trendperiode en gemiddeld aantal jaren verschil tussen metingen voor de berekening van de trend voor de habitatkwaliteit, voor Vlaanderen en binnen SBZ-H. De laatste kolom toont de eindconclusie voor de habitatkwaliteit.")) %>%
   kableExtra::column_spec(4, width = "1.5cm") %>%
   kableExtra::column_spec(7, width = "1.5cm") %>%
   add_header_above(c("", "Vlaanderen" = 3, "Binnen SBZ-H" = 3, ""))
@@ -508,7 +508,7 @@ for (habt in habs) {
 
 ```{r results='asis', eval=(length(habs) > 0)}
 #show each of the figures
-captions <- sprintf("Oppervlakteaandeel van %s in goede toestand, per LSVI-criterium, in Vlaanderen (links) en binnen het netwerk van SBZ-H (rechts). Voor schattingen o.b.v. een steekproef geven de horizontale vlaggen het 95 procent betrouwbaarheidsinterval weer. De verticale onderbroken lijn geeft de gehanteerde grenswaarde voor gunstige staat van instandhouding weer voor %s.", habs, habs)
+captions <- sprintf("Oppervlakteaandeel van %s in goede toestand in Vlaanderen, per LSVI-criterium. Voor schattingen o.b.v. een steekproef geven de horizontale vlaggen het 95 procent betrouwbaarheidsinterval weer. De verticale onderbroken lijn geeft de gehanteerde grenswaarde voor gunstige staat van instandhouding weer voor %s.", habs, habs)
 cat(
 sprintf(
 "\\begin{figure}\n\n{\\centering \\includegraphics{figuren/lsvi/%s-status_indicatoren-fig%s.png}}\n\n\\caption{%s}(\\#fig:lsvifiguur1-%s)\n\n\\end{figure}", rep(this_hab, length(habs)), habs, captions, habs),