nouvelle essai

exploration/GR3D_Rdescription/deathBasinW.Rmd

@@ -5,18 +5,25 @@ date: "`r format(Sys.time(), '%d %B %Y')`"
 bibliography: biblio.bib
 csl: ecological-modelling.csl
 output:
-  word_document: 
+  bookdown::word_document2:
     df_print: kable
-    reference_docx: ref_doc.docx
-    toc: yes
-    fig_caption: yes
+    reference_docx: ref_doc.dotx
+#    toc: yes
+ #   fig_caption: yes
+    plots:
+      style: Normal
+      align: center
+      caption:
+        style: Image Caption
+        pre: 'Figure '
+        sep: ': '
 #    do: default
 editor_options: 
   chunk_output_type: console
 ---
 
 ```{r setup, include=FALSE}
-knitr::opts_chunk$set(echo = TRUE, include = FALSE,  fig.alig ='left')
+knitr::opts_chunk$set(echo = TRUE, include = FALSE,  fig.alig = 'left')
 ```
 
 ```{r library}
@@ -25,6 +32,8 @@ library(tidyr)
 library(ggplot2)
 library(knitr)
 library(flextable)
+library(bookdown)
+library(stringr)
 ```
 
 ```{r load data}
@@ -48,7 +57,7 @@ distanceNEA <- distanceNEA %>%
   replace(., col(.) == row(.), NA) %>% 
   as.data.frame() %>% mutate(destination = str_replace_all(row.names(.), "([ '\\-\\.])", "_")) %>% 
   pivot_longer(cols = -destination, names_to = 'departure', values_to = 'distance') %>% 
-    mutate(departure = str_replace_all(departure, "([ '\\-\\.])", "_")) %>% 
+  mutate(departure = str_replace_all(departure, "([ '\\-\\.])", "_")) %>% 
   dplyr::select(departure, destination, distance) %>% 
   arrange(departure, distance)