fix <<

Author: RCinbo

source/R/Vertalingen.R

@@ -1,7 +1,7 @@
 trend_translate <- data.frame(trendeng = c("unknown", "uncertain", "decreasing",
                                            "increasing", "stable",
                                            "deteriorating", "improving"),
-                    trendnl = c("onbekend", "onzeker", "\U2198", "\U2197", "=",
+                    trendnl = c("onbekend", "onzeker", "$\\searrow$", "$\\nearrow$", "=",
                                 "verslechterend", "verbeterend"),
                     trendlegende = c("onbekend", "onzeker", "afname",
                                      "toename", "stabiel",
@@ -13,7 +13,7 @@ expected_trend_translate <- data.frame(trendeng = c("very positive", "positive",
                                           "stabiel", "negatief",
                                           "heel negatief", "onbekend"))
 kleurenpallet <- data.frame(
-  waarde = c("onbekend", "onzeker", "\U2198", "afname", "\U2197", "toename",
+  waarde = c("onbekend", "onzeker", "$\\searrow$", "afname", "$\\nearrow$", "toename",
              "=", "stabiel", "U2 zeer ongunstig", "U1 matig ongunstig",
              "FV gunstig", "goed", "slecht", "matig", "verslechterend",
              "verbeterend"),
@@ -36,17 +36,18 @@ toekomst_translate <- data.frame(
                     INBOtheme::traffic_palette(9)[8]))
 
 frr_translate <- data.frame(
-  symbool = c("≈", "<", "<<", "<<<"),
+  symbool = c("≈", "$<$", "$<<$", "$<<<$"),
   frr_eng = c("Approximately equal to the favourable reference range (less than 2% smaller)",
               "Between 2% and 10% smaller than the FRR",
               "Between 11% and 50% smaller than the FRR",
               "Between 51% and 100% smaller than the FRR"),
   frr_areaal = c("actueel areaal ongeveer gelijk aan FRR (minder dan 2\\% kleiner)",
                  "actueel areaal tussen 2\\% en 10\\% kleiner dan FRR",#dubbele \ om latex problemen te voorkomen
                  "actueel areaal tussen 11\\% en 50\\% kleiner dan FRR",
-                 "actueel areaal tussen 51\\% en 100\\% kleiner dan FRR"))
+                 "actueel areaal tussen 51\\% en 100\\% kleiner dan FRR"),
+  order = 1:4)
 fra_translate <- data.frame(
-  symbool = c("≈", "<", "<<", "<<<", "<<<<"),
+  symbool = c("≈", "$<$", "$<<$", "$<<<$", "$<<<<$"),
   fra_eng = c("Approximately equal to the favourable reference area (less than 2% smaller)",
               "Between 2% and 10% smaller than the FRA",
               "Between 11% and 25% smaller than the FRA",
@@ -56,7 +57,8 @@ fra_translate <- data.frame(
                  "actuele oppervl. tussen 2\\% en 10\\% kleiner dan FRA",#dubbele \ om latex problemen te voorkomen
                  "actuele oppervl. tussen 11\\% en 25\\% kleiner dan FRA",
                  "actuele oppervl. tussen 26\\% en 50\\% kleiner dan FRA",
-                 "actuele oppervl. tussen 51\\% en 100\\% kleiner dan FRA"))
+                 "actuele oppervl. tussen 51\\% en 100\\% kleiner dan FRA"),
+  order = 1:5)
 
 #pressures & threats categories uit https://docs.google.com/spreadsheets/d/1InQHG_ZJUqSVjSA1VyyJd9qlQGtF5Kui/edit#gid=1546634614
 
@@ -82,22 +84,29 @@ legende_caption <- function(trend = NA, FRR_areaal = NA, FRA_area = NA){
   trendlegende <- NA
   frrlegende <- NA
   fralegende <- NA
-  if (!is.null(trend)) {
-    d <- data.frame(trendeng = trend) %>% distinct() %>%#input = wat er in de fiches staat
-      filter(!(trendeng %in% c("unknown", "uncertain"))) %>%
+  if (any(!is.na(trend))) {
+    d <- data.frame(trendeng = trend) %>%
+      distinct() %>%#input = wat er in de fiches staat
+      filter(!is.na(trendeng) &
+               !(trendeng %in% c("unknown", "uncertain"))) %>%
       left_join(trend_translate)
     trendlegende <- str_c(d$trendnl, d$trendlegende, sep = " ", collapse = ", ")
     trendlegende <- str_c("trend: ", trendlegende)
   }
-  if (!is.null(FRR_areaal)) {
-    d <- data.frame(frr_eng = FRR_areaal) %>% distinct() %>%#input = wat er in de fiches staat
+  if (any(!is.na(FRR_areaal))) {
+    d <- data.frame(frr_eng = FRR_areaal) %>%
+      filter(!is.na(frr_eng)) %>%
+      distinct() %>%#input = wat er in de fiches staat
       left_join(frr_translate)
     frrlegende <- str_c(d$symbool, d$frr_areaal, sep = " ", collapse = ", ")
     frrlegende <- str_c("FRR: ", frrlegende)
   }
-  if (!is.null(FRA_area)) {
-    d <- data.frame(fra_eng = FRA_area) %>% distinct() %>%#input = wat er in de fiches staat
-      left_join(fra_translate)
+  if (any(!is.na(FRA_area))) {
+    d <- data.frame(fra_eng = FRA_area) %>%
+      filter(!is.na(fra_eng)) %>%
+      distinct() %>%#input = wat er in de fiches staat
+      left_join(fra_translate) %>%
+      arrange(order)
     fralegende <- str_c(d$symbool, d$fra_area, sep = " ", collapse = ", ")
     fralegende <- str_c("FRA: ", fralegende)
   }

source/bookdown/_template_habitats.Rmd

@@ -71,7 +71,8 @@ data_areaal %>%
   dplyr::select(code, area, trendnl, symbool, statusnl) %>%
   arrange(code) %>%
   kable(booktabs = TRUE, 
-        #format = "latex",
+        format = "latex",
+        exape = FALSE,
         col.names = c("", "Areaal (km²)", "Trend t.o.v. vorige rapportage",
                       "FRR", 
                      "Eindconclusie"),
@@ -118,11 +119,13 @@ data_area %>% filter(hab == this_hab) %>%
   left_join(trend_translate, by = c("trend" = "trendeng")) %>%
   left_join(status_translate, by = c("conclusie" = "statuseng")) %>%
   left_join(fra_translate, by = c("fra" = "fra_eng")) %>%
-  mutate(area = as.numeric(str_replace(area,',','.')) * 100) %>%#km² -> ha
+  mutate(area = as.numeric(str_replace(area,',','.')) * 100,
+         stt = str_replace(stt, pattern = "\\%", replacement = "\\\\%")) %>%#km² -> ha
   dplyr::select(code, area, trendnl, stt, symbool, statusnl) %>%
   arrange(code) %>%
   kable(booktabs = TRUE, 
-        #format = "latex",
+        format = "latex",
+        escape = FALSE,
         col.names = c("","Oppervlakte Vlaanderen (ha)",
                       "Trend t.o.v. vorige rapportage",
                       "Korte termijn trend", "FRA", "Eindconclusie"),
@@ -143,10 +146,11 @@ data_area %>% filter(hab == this_hab) %>%
   dplyr::select(code, sbz_opp, trendnl) %>%
   arrange(code) %>%
   kable(booktabs = TRUE, 
-        #format = "latex",
+        format = "latex",
+        escape = FALSE,
         col.names = c("","Oppervlakte in SBZ-H",
                       "Trend van de oppervlakte in SBZ-H"),
-        caption = "Oppervlakte en trend van de oppervlakte in SBZ-H") %>%
+        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")