Removed the hard-coded path for the output

R/desc_global.R

@@ -52,7 +52,7 @@ desc_global <- function(table, html="desc_global", titre=NULL, variables=NULL, v
   }
   
   # Header de la table
-  HTMLInit(file=paste0("../HTML\ Output/",html,".html"), title=titre, CSSfile="desc.css")
+  HTMLInit(file=paste0(html,".html"), title=titre, CSSfile="desc.css")
   HTML("<div class='desc'>")
   inc()
   HTML("<table class='desc'>")

R/desc_groupe.R

@@ -84,7 +84,7 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU
     html <- paste0("desc_groupe_",groupe)
   
   # Header de la table
-  HTMLInit(file=paste0("../HTML\ Output/",html,".html"), title=titre, CSSfile="desc.css")
+  HTMLInit(file=paste0(html,".html"), title=titre, CSSfile="desc.css")
   HTML("<div class='desc'>")
   inc()
   HTML("<table class='desc'>")