diff --git a/exploration/GR3D_Rdescription/deathBasinW.Rmd b/exploration/GR3D_Rdescription/deathBasinW.Rmd index 1f9ad6df8b09d366c4a8908225092825edf1b57c..780098996fed8e7c82611dbb138a04989ad9e224 100644 --- a/exploration/GR3D_Rdescription/deathBasinW.Rmd +++ b/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)