Fix SS&F conclusion table look

Author: RCinbo

source/bookdown/_template_habitats.Rmd

@@ -421,15 +421,16 @@ data_struc_func_final %>%
   dplyr::select(code, trend_vl, periode_vl, verschil_jaar_vl,
                 trend_sbzh2, periode_sbzh, verschil_jaar_sbzh,
                 conclusion) %>%
-  kable(booktabs = TRUE,
+  kable(booktabs = TRUE, 
+        format = "latex",
+        escape = FALSE,
         col.names = c("Habitat",
-                      rep(c("Trend", "Periode", "Gem. # jaar"), 2),
+                      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.")) %>%
-  add_header_above(c("", "Vlaanderen" = 3, "Binnen SBZ-H" = 3, "")) #%>%
-  
-  
-
+  kableExtra::column_spec(4, width = "1.5cm") %>%
+  kableExtra::column_spec(7, width = "1.5cm") %>%
+  add_header_above(c("", "Vlaanderen" = 3, "Binnen SBZ-H" = 3, ""))
 ```