update the formating of path

Author: TanguyBarthelemy

doc/EN/JDemetra+_configuration_guide_EN.Rmd

@@ -36,18 +36,27 @@ color_format <- function(x, color, url = TRUE) {
 
     x <- x |> gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE)
 
+    # Génération de .pdf
     if (output_format == "latex") {
         x <- x |> gsub(pattern = "#", replacement = "\\#", fixed = TRUE)
         ret <- paste("\\textcolor{", color_name, ifelse(url, "}{\\url{", "}{\\nolinkurl{"), x, ifelse(url, "}}", "}}"), sep = "")
+        
+    # Génération de .html
     } else if (output_format == "html") {
         ret <- paste("<font color='", color, "'>", x, "</font>", sep = "")
+        
+    # Génération de .md pour Github
     } else if (output_format == "gfm+tex_math_dollars-yaml_metadata_block") {
         if (url) {
             ret <- paste("[", x, "](", x, ")", sep = "")
         } else {
-            ret <- x |> gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE)
+            ret <- x |> 
+                gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE) |> 
+                gsub(pattern = "_", replacement = "\\\\_", fixed = TRUE)
             ret <- paste("${\\textsf{\\color{", color, "}{", ret, "}}}$", sep = "")
         }
+        
+    # Autres ?
     } else {
         ret <- x
     }

doc/EN/JDemetra+_quick_installation_guide_EN.Rmd

@@ -36,18 +36,27 @@ color_format <- function(x, color, url = TRUE) {
 
     x <- x |> gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE)
 
+    # Génération de .pdf
     if (output_format == "latex") {
         x <- x |> gsub(pattern = "#", replacement = "\\#", fixed = TRUE)
         ret <- paste("\\textcolor{", color_name, ifelse(url, "}{\\url{", "}{\\nolinkurl{"), x, ifelse(url, "}}", "}}"), sep = "")
+        
+    # Génération de .html
     } else if (output_format == "html") {
         ret <- paste("<font color='", color, "'>", x, "</font>", sep = "")
+        
+    # Génération de .md pour Github
     } else if (output_format == "gfm+tex_math_dollars-yaml_metadata_block") {
         if (url) {
             ret <- paste("[", x, "](", x, ")", sep = "")
         } else {
-            ret <- x |> gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE)
+            ret <- x |> 
+                gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE) |> 
+                gsub(pattern = "_", replacement = "\\\\_", fixed = TRUE)
             ret <- paste("${\\textsf{\\color{", color, "}{", ret, "}}}$", sep = "")
         }
+        
+    # Autres ?
     } else {
         ret <- x
     }

doc/FR/Guide_de_configuration_JDemetra+.Rmd

@@ -37,18 +37,27 @@ color_format <- function(x, color, url = TRUE) {
 
     x <- x |> gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE)
 
+    # Génération de .pdf
     if (output_format == "latex") {
         x <- x |> gsub(pattern = "#", replacement = "\\#", fixed = TRUE)
         ret <- paste("\\textcolor{", color_name, ifelse(url, "}{\\url{", "}{\\nolinkurl{"), x, ifelse(url, "}}", "}}"), sep = "")
+        
+    # Génération de .html
     } else if (output_format == "html") {
         ret <- paste("<font color='", color, "'>", x, "</font>", sep = "")
+        
+    # Génération de .md pour Github
     } else if (output_format == "gfm+tex_math_dollars-yaml_metadata_block") {
         if (url) {
             ret <- paste("[", x, "](", x, ")", sep = "")
         } else {
-            ret <- x |> gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE)
+            ret <- x |> 
+                gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE) |> 
+                gsub(pattern = "_", replacement = "\\\\_", fixed = TRUE)
             ret <- paste("${\\textsf{\\color{", color, "}{", ret, "}}}$", sep = "")
         }
+        
+    # Autres ?
     } else {
         ret <- x
     }

doc/FR/Installation_rapide_JDemetra+.Rmd

@@ -37,18 +37,27 @@ color_format <- function(x, color, url = TRUE) {
 
     x <- x |> gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE)
 
+    # Génération de .pdf
     if (output_format == "latex") {
         x <- x |> gsub(pattern = "#", replacement = "\\#", fixed = TRUE)
         ret <- paste("\\textcolor{", color_name, ifelse(url, "}{\\url{", "}{\\nolinkurl{"), x, ifelse(url, "}}", "}}"), sep = "")
+        
+    # Génération de .html
     } else if (output_format == "html") {
         ret <- paste("<font color='", color, "'>", x, "</font>", sep = "")
+        
+    # Génération de .md pour Github
     } else if (output_format == "gfm+tex_math_dollars-yaml_metadata_block") {
         if (url) {
             ret <- paste("[", x, "](", x, ")", sep = "")
         } else {
-            ret <- x |> gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE)
+            ret <- x |> 
+                gsub(pattern = "\\", replacement = "\\\\", fixed = TRUE) |> 
+                gsub(pattern = "_", replacement = "\\\\_", fixed = TRUE)
             ret <- paste("${\\textsf{\\color{", color, "}{", ret, "}}}$", sep = "")
         }
+        
+    # Autres ?
     } else {
         ret <- x
     }