Commit c5be031d authored by David Carayon's avatar David Carayon
Browse files

Update to V1.0.0

parent 915b9d9f
Package: InraeThemes
Title: Modèles et thèmes INRAE
Version: 0.0.0.9000
Version: 1.0.0
Authors@R:
c(
person(given = "David",
......
......@@ -49,10 +49,7 @@ Ce package propose différentes fonctions permettant de personnaliser les graphi
La palette de couleurs construite à partir de la charte graphique V3 est la suivante :
```{r}
library(InraeThemes)
scales::show_col(palette_inrae())
```
![](man/figures/scales.png)
## Utilisation du thème et des échelles de couleur
......@@ -67,6 +64,7 @@ scale_fill_inrae()
Voici différents exemples d'utilisation de ces fonctions :
```{r example, message = FALSE, fig.width = 14, fig.height=8, dpi = 320}
library(InraeThemes)
library(ggplot2)
## On charge les données d'exemple du package
......@@ -180,27 +178,29 @@ Voici un exemple de rapport :
![](man/figures/cap_book.png)
## Rapport Word INRAE
## Présentation INRAE RevealJS
Ce troisième template permet de produire un rapport au format Microsoft Word (.docx).
Ce troisième template permet de produire une présentation HTML utilisant la technologie RevealJS (présentation web en 2 dimensions).
Le template Rmd est livré avec un template au format .docx, à modifier selon les préférences de l'utilisateur, et un logo bloc-état.
Le template Rmd est livré avec une feuille de style CSS correspondant aux couleurs INRAE ainsi que différents graphismes (logo, première page, etc.)
Voici un exemple de rapport :
L'utilisateur pourra choisir d'utiliser `chrome_print` au moment de la compilation pour obtenir un fichier PDF en plus de la sortie HTML.
![](man/figures/cap_word.png)
## Présentation INRAE RevealJS
Ce quatrième template permet de produire une présentation HTML utilisant la technologie RevealJS (présentations web construites en 2 niveaux : les titres de premiers niveau définissent la dimension horizontale tandis que les titres de second niveau (et plus) définissent la dimension verticale. Chaque titre correspond à une diapositive).
Le template Rmd est livré avec une feuille de style CSS correspondant aux couleurs INRAE et d'un logo bloc-etat.
![](man/figures/cap_reveal.png)
## Présentation INRAE RemarkJS
Cette seconde fonction permet de produire une présentation HTML utilisant la technologie RemarkJS.
Le template Rmd est livré avec une feuille de style CSS correspondant aux couleurs INRAE ainsi que différents graphismes (logo, première page, etc.)
Ce cinquième template permet de produire une présentation HTML/PDF utilisant la technologie RemarkJS du package {[xaringan](https://github.com/yihui/xaringan)}.
Le template Rmd est livré avec une feuille de style CSS correspondant aux couleurs INRAE, un fichier HTML permettant d'insérer le logo bloc-état sur chaque slide via du JavaScript et un logo INRAE blanc (issu de la charte graphique INRAE).
L'utilisateur pourra choisir d'utiliser `chrome_print` au moment de la compilation pour obtenir un fichier PDF en plus de la sortie HTML.
![](man/figures/cap_remark.png)
## TO-DO
- Rapport Word
......@@ -47,12 +47,7 @@ graphique INRAE.
La palette de couleurs construite à partir de la charte graphique V3 est
la suivante :
``` r
library(InraeThemes)
scales::show_col(palette_inrae())
```
<img src="man/figures/README-unnamed-chunk-2-1.png" width="100%" />
![](man/figures/scales.png)
## Utilisation du thème et des échelles de couleur
......@@ -67,6 +62,7 @@ scale_fill_inrae()
Voici différents exemples d’utilisation de ces fonctions :
``` r
library(InraeThemes)
library(ggplot2)
## On charge les données d'exemple du package
......@@ -229,34 +225,42 @@ Voici un exemple de rapport :
![](man/figures/cap_book.png)
## Rapport Word INRAE
Ce troisième template permet de produire un rapport au format Microsoft
Word (.docx).
Le template Rmd est livré avec un template au format .docx, à modifier
selon les préférences de l’utilisateur, et un logo bloc-état.
Voici un exemple de rapport :
![](man/figures/cap_word.png)
## Présentation INRAE RevealJS
Ce troisième template permet de produire une présentation HTML utilisant
la technologie RevealJS (présentation web en 2 dimensions).
Ce quatrième template permet de produire une présentation HTML utilisant
la technologie RevealJS (présentations web construites en 2 niveaux :
les titres de premiers niveau définissent la dimension horizontale
tandis que les titres de second niveau (et plus) définissent la
dimension verticale. Chaque titre correspond à une diapositive).
Le template Rmd est livré avec une feuille de style CSS correspondant
aux couleurs INRAE ainsi que différents graphismes (logo, première page,
etc.)
L’utilisateur pourra choisir d’utiliser `chrome_print` au moment de la
compilation pour obtenir un fichier PDF en plus de la sortie HTML.
aux couleurs INRAE et d’un logo bloc-etat.
![](man/figures/cap_reveal.png)
## Présentation INRAE RemarkJS
Cette seconde fonction permet de produire une présentation HTML
utilisant la technologie RemarkJS.
Ce cinquième template permet de produire une présentation HTML/PDF
utilisant la technologie RemarkJS du package
{[xaringan](https://github.com/yihui/xaringan)}.
Le template Rmd est livré avec une feuille de style CSS correspondant
aux couleurs INRAE ainsi que différents graphismes (logo, première page,
etc.)
L’utilisateur pourra choisir d’utiliser `chrome_print` au moment de la
compilation pour obtenir un fichier PDF en plus de la sortie HTML.
aux couleurs INRAE, un fichier HTML permettant d’insérer le logo
bloc-état sur chaque slide via du JavaScript et un logo INRAE blanc
(issu de la charte graphique INRAE). L’utilisateur pourra choisir
d’utiliser `chrome_print` au moment de la compilation pour obtenir un
fichier PDF en plus de la sortie HTML.
![](man/figures/cap_remark.png)
## TO-DO
- Rapport Word
---
title: |
![](styles/bloc_etat.png){width=2in}
Titre de la présentation
date: "`r Sys.Date()` | Unité de recherche"
author: "Auteur"
output:
officedown::rdocx_document:
reference_docx: styles/template.docx
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(
echo = FALSE,
fig.cap = TRUE,
message = FALSE,
warning = FALSE,
dpi = 300,
out.width = 2100
)
library(officedown)
library(officer)
```
![]()
\newpage
## Sommaire
<!---BLOCK_TOC--->
## Liste des Figures
<!---BLOCK_TOC{seq_id: 'fig'}--->
## Liste des Tables
<!---BLOCK_TOC{seq_id: 'tab'}--->
```{r packages}
library(InraeThemes)
library(dplyr)
library(ggplot2)
library(gridExtra)
```
# A Propos
Ce document est un rapport au format {officedown} généré par le package {InraeThemes}.
Il consiste en un fichier Rmarkdown (.Rmd) associé à un template au format .docx
Vous êtes libres de personnaliser le template de ce modèle à vos goûts (cf. documentation [officedown](https://github.com/davidgohel/officedown) & [officer](https://davidgohel.github.io/officer/)) et vos suggestions sont les bienvenues sur le [Github InraeThemes](https://github.com/davidcarayon/InraeThemes/issues) !
# Tableaux {-}
`Vestibulum` imperdiet, ex vel sodales facilisis, nibh tellus imperdiet massa, sit amet scelerisque orci velit vel tellus. Ut consequat justo tincidunt porttitor varius. Suspendisse erat ipsum, feugiat vitae rhoncus non, molestie ac purus. Morbi aliquet, elit eget blandit suscipit, est lacus facilisis turpis, nec fermentum nunc felis et lorem.
::: {#Table1}
Exemple de tableau :
:::
```{r}
pt <- prop_table(
style = "Plain Table 1",
layout = table_layout(type = "fixed"),
colwidths = table_colwidths(widths = rep(0.9, ncol(iris))),
tcf = table_conditional_formatting(first_row = TRUE, no_vband = TRUE),
align = "center"
)
block_table(head(iris), header = TRUE, properties = pt)
```
## Equations {-}
> Bloc de citation
Les formules LaTeX peuvent être utilisés au sein d'un paragraphe : $E=mc^2$ ou en tant qu'équation sur une ligne seule :
::: {#eq1}
:::
$$f=\frac{a}{b+c}$$
Ligne verticale :
----
Cras pulvinar ligula ac nisi porttitor, volutpat congue orci tincidunt. Pellentesque non mi congue, porta enim eget, venenatis sem. Integer suscipit vulputate tellus, eget commodo dolor gravida vel. Suspendisse gravida gravida ligula, in interdum sapien molestie ut.
### Graphiques {-}
Cf. [table](#Table1) ci-dessus.
On reprend un des exemples proposés dans le README du package InraeThemes :
```{r example, message = FALSE}
## On charge les données d'exemple du package
data("example_datasets")
ggplot(example_datasets$cars, aes_string(x = 'mpg', fill = 'cyl',
colour = 'cyl')) +
geom_density(alpha = 0.75) +
scale_fill_inrae() +
scale_color_inrae() +
labs(fill = 'Cylinders', colour = 'Cylinders', x = 'MPG', y = 'Density') +
theme_inrae()
```
# Conclusion {-}
Conclusion.
# References {-}
---
title: "Titre du document"
subtitle: "Sous-Titre du document"
author: "Auteur"
institute: "Affiliation"
date: "Evenement<br><br>Date"
title: "Titre de la présentation"
subtitle: "Sous-titre"
author: "Auteur | Unité de recherche"
institute: ""
date: "Evenement | Janvier 2021"
output:
xaringan::moon_reader:
css: [styles/remark_inrae.css, default]
css: [styles/remark_inrae.css]
lib_dir: libs
nature:
titleSlideClass: [middle, right]
titleSlideClass: [middle, center]
highlightStyle: github
highlightLines: true
countIncrementalSlides: false
ratio: "16:9"
includes:
after_body: styles/insert-logo.html
# Dé-commenter la ligne ci-dessous pour une sortie PDF
# knit: pagedown::chrome_print
---
layout: true
<div class="my-sidebar"></div>
```{r setup, include=FALSE}
options(htmltools.dir.version = FALSE)
......@@ -80,30 +81,75 @@ class: dark, center, middle
Ci-dessous un graphique avec un thème INRAE :
```{r plot, out.width = "65%", fig.align = "center", fig.width = 12}
ggplot(mtcars, aes(x=wt, y=mpg)) +
geom_point(aes(color = as.factor(gear)))+
scale_color_inrae_n5()+
geom_smooth(color = couleurs_inrae[1]) +
labs(x = "Valeur de X", y = "Valeur de Y", title = "Titre du graphique", subtitle = "Sous-titre", color = "couleur") +
theme_inrae() +
theme(panel.background = element_rect(fill = "transparent", colour = NA),
plot.background = element_rect(fill = "transparent", colour = NA))
```{r example, message = FALSE, fig.width = 14, fig.height=8, dpi = 320, out.width = "70%", fig.align = "center"}
## On charge les données d'exemple du package
data("example_datasets")
## On construit 4 graphiques d'exemple, stockés dans une même liste
display <- list(
ggplot(example_datasets$www, aes_string(x = 'Minute', y = 'Users',
color = 'Measure',
shape = 'Measure')) +
geom_line() +
geom_point(size = 3) +
facet_wrap(~Measure) +
geom_point(size = 1.8) +
scale_color_inrae() +
scale_shape_manual(values = c(15, 16)) +
labs(title = "Titre", subtitle = "Sous-titre") +
theme_inrae(),
ggplot(example_datasets$cars, aes_string(x = 'mpg', fill = 'cyl',
colour = 'cyl')) +
geom_density(alpha = 0.75) +
scale_fill_inrae() +
scale_color_inrae() +
labs(fill = 'Cylinders', colour = 'Cylinders', x = 'MPG', y = 'Density') +
theme_inrae(),
ggplot(example_datasets$dia, aes_string(x = 'price', fill = 'cut')) +
geom_histogram(binwidth = 850) +
xlab('Price (USD)') +
ylab('Count') +
scale_fill_inrae() +
scale_x_continuous(label = function(x) paste0(x / 1000, 'k'))+
theme_inrae(),
ggplot(example_datasets$drivers, aes_string(x = 'Year', y = 'Deaths',
fill = "Year")) +
geom_boxplot(size = 0.25) +
ylab('Monthly Deaths') +
theme_inrae() +
scale_fill_inrae() +
coord_flip() +
labs(caption = "Caption")
)
# On assemble
do.call(gridExtra::grid.arrange, display)
```
> Ceci est un bloc de citation.
---
# Equations
> Bloc de citation
Les formules LaTeX peuvent être utilisés au sein d'un paragraphe : $E=mc^2$ ou en tant qu'équation sur une ligne seule :
$$f=\frac{a}{b+c}$$
---
# Mise en page avancée
.pull-left[
<img src="styles/img1.jpeg" width=300 height=400>
<img src="https://miro.medium.com/max/1200/1*ZVlIZ1ZYC6rASz-dYPzhZQ.jpeg" width=300 height=400>
]
.pull-right[
<img src="styles/img2.jpeg" width=300 height=400>
<img src="https://pbs.twimg.com/media/EJ-maQOW4AAI16b?format=jpg&name=medium" width=300 height=400>
]
---
......@@ -127,19 +173,18 @@ iris %>%
# On charge un package
library(ggplot2)
# On trace un graphique ggplot avec un second theme INRAE
ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
geom_boxplot(color = "black") +
geom_jitter(shape = 21, color = "black", alpha = 0.6)+
labs(x = "Species", y = "Sepal Length") +
theme_inrae_1()+
theme(panel.background = element_rect(fill = "transparent", colour = NA),
plot.background = element_rect(fill = "transparent", colour = NA))
ggplot(example_datasets$cars, aes_string(x = 'mpg', fill = 'cyl',
colour = 'cyl')) +
geom_density(alpha = 0.75) +
scale_fill_inrae() +
scale_color_inrae() +
labs(fill = 'Cylinders', colour = 'Cylinders', x = 'MPG', y = 'Density') +
theme_inrae()
```
---
class: center, middle
background-image: url("styles/agriculture.jpg")
background-image: url("https://upload.wikimedia.org/wikipedia/commons/thumb/7/72/Snow_Scene_at_Shipka_Pass_1.JPG/1280px-Snow_Scene_at_Shipka_Pass_1.JPG")
background-size: "100%"
# Merci de votre attention !
<style>
.logo {
background-image: url(styles/bloc_etat.png);
background-size: contain;
background-repeat: no-repeat;
position: absolute;
top: 1em;
right: 1em;
width: 183px;
height: 72px;
z-index: 0;
}
</style>
<script>
document
.querySelectorAll(
'.remark-slide-content' +
':not(.title-slide)' +
// add additional classes to exclude here, e.g.
// ':not(.inverse)' +
':not(.hide-logo)'
)
.forEach(el => {
el.innerHTML += '<div class="logo"></div>';
});
</script>
/* -------------------------------------------------------
*
* !! This file was generated by xaringanthemer !!
*
* Changes made to this file directly will be overwritten
* if you used xaringanthemer in your xaringan slides Rmd
*
* Issues or likes?
* - https://github.com/gadenbuie/xaringanthemer
* - https://www.garrickadenbuie.com
*
* Need help? Try:
* - vignette(package = "xaringanthemer")
* - ?xaringanthemer::style_xaringan
* - xaringan wiki: https://github.com/yihui/xaringan/wiki
* - remarkjs wiki: https://github.com/gnab/remark/wiki
*
* Version: 0.3.0
*
* ------------------------------------------------------- */
@import url(https://fonts.googleapis.com/css?family=Montserrat:300,300i&display=swap);
@import url(https://fonts.googleapis.com/css?family=Raleway&display=swap);
@import url(https://fonts.googleapis.com/css?family=Fira+Mono&display=swap);
:root {
/* Fonts */
--text-font-family: Montserrat;
--text-font-is-google: 1;
--text-font-family-fallback: -apple-system, BlinkMacSystemFont, avenir next, avenir, helvetica neue, helvetica, Ubuntu, roboto, noto, segoe ui, arial;
--text-font-base: sans-serif;
--header-font-family: Raleway;
--header-font-is-google: 1;
--code-font-family: 'Fira Mono';
--code-font-is-google: 1;
--base-font-size: 20px;
--text-font-size: 1rem;
--code-font-size: 0.9rem;
--code-inline-font-size: 1em;
--header-h1-font-size: 2.75rem;
--header-h2-font-size: 2.25rem;
--header-h3-font-size: 1.75rem;
/* Colors */
--text-color: #272822;
--header-color: #00a3a6;
--background-color: #FFFFFF;
--link-color: #00a3a6;
--text-bold-color: #00a3a6;
--code-highlight-color: rgba(255,255,0,0.5);
--inverse-text-color: #FFFFFF;
--inverse-background-color: #00a3a6;
--inverse-header-color: #FFFFFF;
--title-slide-background-color: #00a3a6;
--title-slide-text-color: #FFFFFF;
--header-background-color: #00a3a6;
--header-background-text-color: #FFFFFF;
--base: #00a3a6;
--white: #FFFFFF;
--black: #272822;
}
html {
font-size: var(--base-font-size);
}
body {
font-family: var(--text-font-family), var(--text-font-family-fallback), var(--text-font-base);
font-weight: 300;
color: var(--text-color);
}
h1, h2, h3 {
font-family: var(--header-font-family);
font-weight: 600;
color: var(--header-color);
}
.remark-slide-content {
background-color: var(--background-color);
font-size: 1rem;
padding: 16px 64px 16px 64px;
width: 100%;
height: 100%;
}
.remark-slide-content h1 {
font-size: var(--header-h1-font-size);
}
.remark-slide-content h2 {
font-size: var(--header-h2-font-size);
}
.remark-slide-content h3 {
font-size: var(--header-h3-font-size);
}
.remark-code, .remark-inline-code {
font-family: var(--code-font-family), Menlo, Consolas, Monaco, Liberation Mono, Lucida Console, monospace;
}
.remark-code {
font-size: var(--code-font-size);
}
.remark-inline-code {
font-size: var(--code-inline-font-size);
color: #00a3a6;
}
.remark-slide-number {
color: #00a3a6;
opacity: 1;
font-size: 0.9em;
}
strong { color: var(--text-bold-color); }
a, a > code {
color: var(--link-color);
text-decoration: none;
}
.footnote {
position: absolute;
bottom: 60px;
padding-right: 4em;
font-size: 0.9em;
}
.remark-code-line-highlighted {
background-color: var(--code-highlight-color);
}
.inverse {
background-color: var(--inverse-background-color);
color: var(--inverse-text-color);
}
.inverse h1, .inverse h2, .inverse h3 {
color: var(--inverse-header-color);
}
.title-slide, .title-slide h1, .title-slide h2, .title-slide h3 {
color: var(--title-slide-text-color);
}
.title-slide {
background-color: var(--title-slide-background-color);
background-image: url(logo_white.png);
background-position: 95% 95%;
background-size: 25%;
}
.title-slide .remark-slide-number {
display: none;
}
/* Two-column layout */
.left-column {
width: 20%;
height: 92%;
float: left;
}
.left-column h2, .left-column h3 {
color: #00a3a699;
}
.left-column h2:last-of-type, .left-column h3:last-child {
color: #00a3a6;
}
.right-column {
width: 75%;
float: right;
padding-top: 1em;
}