feat : propre.brochure (WIP) :

1. supression des accents dans l'argument par défaut `made_with` pour que les checks passent sur windows
2. Ajout du badge expérimental à la fonction pour tenir compte de cette difficulté et des soucis de mise en page signalés par Thomas le 21 mars 2021

DESCRIPTION

@@ -43,7 +43,8 @@ Imports:
     systemfonts,
     utils,
     xfun,
-    pagedown
+    pagedown,
+    lifecycle
 Suggests: 
     gouvdown.fonts,
     pals,
@@ -67,6 +68,7 @@ Collate:
     'html_gouv.R'
     'gitbook_gouv.R'
     'gouv_palettes.R'
+    'gouvdown-package.R'
     'logo.R'
     'propre_brochure.R'
     'skeleton.R'

NAMESPACE

@@ -30,3 +30,4 @@ importFrom(ggplot2,margin)
 importFrom(ggplot2,theme)
 importFrom(glue,glue)
 importFrom(here,here)
+importFrom(lifecycle,deprecated)

R/gouvdown-package.R

@@ -0,0 +1,7 @@
+#' @keywords internal
+"_PACKAGE"
+
+## usethis namespace: start
+#' @importFrom lifecycle deprecated
+## usethis namespace: end
+NULL

R/propre_brochure.R

@@ -1,4 +1,5 @@
 #' gouvdown PDF brochure - PROPRE style
+#' `r lifecycle::badge("experimental")`
 #'
 #' @inheritParams html_gouv
 #' @param ... Additional arguments passed to \code{bookdown::\link{html_document2}()}.
@@ -16,7 +17,7 @@ propre_brochure <- function(extra_dependencies = list(),
                             css = NULL,
                             use_gouvdown_fonts = TRUE,
                             width_main_column = 15,
-                            made_with = "Ce document a été réalisé avec le package `gouvdown`") {
+                            made_with = "Ce document a ete realise avec le package `{gouvdown}`") {
   # init variable
   logo_html_fragment <- NULL
 
@@ -55,9 +56,10 @@ propre_brochure <- function(extra_dependencies = list(),
   made_with_css <- tempfile(fileext = ".css")
 
   writeLines(paste(
-    paste0(":root {--made-with:", made_with , ";}")
+    paste0(":root {--made-with:", iconv(made_with, to = "UTF-8") , ";}")
   ),
-  con = made_with_css)
+  con = made_with_css,
+  useBytes = TRUE)
 
   # render
   pagedown::html_paged(

inst/rmarkdown/templates/propre_brochure/skeleton/.gitignore

@@ -2,3 +2,4 @@ skeleton.html
 skeleton.pdf
 www/
 header.html
+skeleton_files/