Fix bold text with **

Author: RCinbo

source/R/habitatauteurs_from_docx.R

@@ -9,6 +9,7 @@ library(jsonlite)
 # however, they do not allow to keep the labels that the bib items already have.
 
 drive_auth()
+2
 
 #download the docx files from google drive
 folder <- "https://drive.google.com/drive/folders/10cZDtfWFMglGF4ICvBzv6HXkfsqT3eP1"
@@ -59,13 +60,21 @@ for (hoofdstuk in c("zilt", "kustduin", "water", "heide", "gras", "veen",
                                            paragrafen[!(paragrafen %in% rmd$sec_h1)],
                                            collapse = ", ")))
   for (x in paragrafen) {
-    rmd_select(rmd, by_section(x)) %>%
+    txt <- rmd_select(rmd, by_section(x)) %>%
       rmd_select(has_type("rmd_markdown")) %>% # do not print the headers, only the text
-      as_document() %>%
+      as_document()
+    txt <- txt  %>%
       str_replace_all(fixed("\\@"), "@") %>%
+      str_replace_all(fixed("\\*"), "*") %>%
+      str_replace_all(fixed("\\[!ht\\]"), "[!ht]") %>%
       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
+      str_replace_all("\\\\~", "~") %>%
+      str_replace_all("\\\\`", "`") %>%
+      str_replace_all(fixed("\\|"), "|") %>%
+      str_replace_all(fixed("\\\\"), "\\")
+    txt %>%
       writeLines(useBytes = TRUE,
                  con = find_root_file("source/bookdown/habitatauteurs_paragrafen",
                                       sprintf("%s_%s.md",hoofdstuk,x),