correct habitatauteur from docx script

Make one small correction to the habitat chapter template

Author: RCinbo

source/R/habitatauteurs_from_docx.R

@@ -62,9 +62,9 @@ for (hoofdstuk in c("zilt", "kustduin", "water", "heide", "gras", "veen",
     rmd_select(rmd, by_section(x)) %>%
       rmd_select(has_type("rmd_markdown")) %>% # do not print the headers, only the text
       as_document() %>%
-      str_replace_all("\\\\", "\\") %>% #otherwise, double backslash is printed in the md file
-      str_replace_all("\\[", "[") %>%
-      str_replace_all("\\]", "]") %>%
+      str_replace_all(fixed("\\@"), "@") %>%
+      str_replace_all(fixed("\\[@"), regex("[@")) %>%
+      str_replace_all("\\\\]", "]") %>%
       str_replace_all("\\{.mark\\}", "") %>%#this text appears when the text background is not white in the docx
       writeLines(useBytes = TRUE,
                  con = find_root_file("source/bookdown/habitatauteurs_paragrafen",

source/bookdown/_template_habitats.Rmd

@@ -72,15 +72,13 @@ data_areaal %>%
   arrange(code) %>%
   kable(booktabs = TRUE, 
         format = "latex",
-        exape = FALSE,
+        escape = FALSE,
         col.names = c("", "Areaal (km²)", "Trendrichting",
                       "FRR", 
                      "Eindconclusie"),
         caption = paste0("Areaalgrootte, trendrichting, relatie tot het referentieareaal voor regionaal gunstige toestand (FRR) en eindconclusie voor het areaal (", legende_caption(trend = b$trend, FRR_areaal = b$frr),").")) %>%
   kable_styling() %>%
   column_spec(2, width = "3cm")
-  
-  
 ```
 
 ```{r, child = find_root_file("habitatauteurs_paragrafen", sprintf("%s_areaal.md", this_hab), criterion = has_file("bookdown.Rproj"))}