Commit 1ee801ff authored by David Carayon's avatar David Carayon
Browse files

Added revealJS presentation

parent 0d01fd3a
......@@ -16,7 +16,7 @@ License: GPL-3
Encoding: UTF-8
LazyData: true
Roxygen: list(markdown = TRUE)
RoxygenNote: 7.1.0
RoxygenNote: 7.1.1
Depends:
R (>= 2.10)
Imports:
......
......@@ -5,8 +5,6 @@
#'
#' @return
#' @export
#'
#' @examples
scale_fill_inrae <- function(...){
library(scales)
discrete_scale("fill","inrae",manual_pal(values = c("#00a3a6","#275662","#66c1bf","#008c8e")), ...)
......@@ -22,8 +20,6 @@ scale_fill_inrae <- function(...){
#'
#' @return
#' @export
#'
#' @examples
scale_color_inrae <- function(...){
library(scales)
discrete_scale("color","inrae",manual_pal(values = c("#00a3a6","#275662","#66c1bf","#008c8e")), ...)
......@@ -39,8 +35,6 @@ scale_color_inrae <- function(...){
#'
#' @return
#' @export
#'
#' @examples
scale_colour_inrae <- function(...){
library(scales)
discrete_scale("colour","inrae",manual_pal(values = c("#00a3a6","#275662","#66c1bf","#008c8e")), ...)
......@@ -56,8 +50,6 @@ scale_colour_inrae <- function(...){
#'
#' @return
#' @export
#'
#' @examples
scale_fill_inrae_n5 <- function(...){
library(scales)
discrete_scale("fill","inrae",manual_pal(values = c("#275662","#008C56","#66C1BF","#9ED6E3","#C4C0B3")), ...)
......@@ -74,8 +66,6 @@ scale_fill_inrae_n5 <- function(...){
#'
#' @return
#' @export
#'
#' @examples
scale_color_inrae_n5 <- function(...){
library(scales)
discrete_scale("color","inrae",manual_pal(values = c("#275662","#008C56","#66C1BF","#9ED6E3","#C4C0B3")), ...)
......@@ -90,8 +80,6 @@ scale_color_inrae_n5 <- function(...){
#'
#' @return
#' @export
#'
#' @examples
scale_colour_inrae_n5 <- function(...){
library(scales)
discrete_scale("colour","inrae",manual_pal(values = c("#275662","#008C56","#66C1BF","#9ED6E3","#C4C0B3")), ...)
......
#' Title
#'
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
theme_inrae <- function(){
theme_inrae <- function(...){
theme(
axis.title = element_text(
family = "Avenir Next Pro",
......@@ -76,13 +76,11 @@ theme_inrae <- function(){
#' Title
#'
#' @param base_size
#' @param base_family
#' @param base_size base size
#' @param base_family base family
#'
#' @return
#' @export
#'
#' @examples
theme_inrae_1 <- function(base_size = 10, base_family = "Avenir Next Pro") {
theme_gray(base_size = base_size, base_family = base_family) %+replace%
theme(
......
---
title: "Titre de la présentation"
subtitle: "Sous-titre"
author: "Auteur"
date: "`r format(Sys.Date(), '%d %B %Y')`"
output:
revealjs::revealjs_presentation:
theme: default
css: styles/reveal_INRAE.css
transition: slide
background_transition: default
center: true
reveal_options:
slideNumber: true
previewLinks: true
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(
echo = FALSE,
message = FALSE,
warning = FALSE,
dpi = 300,
out.width = "80%",
dev.args=list(bg="transparent")
)
```
```{r packages}
library(InraeThemes)
library(dplyr)
library(ggplot2)
library(gt)
```
```{r}
# Si besoin des couleurs
# RGB
couleurs_inrae<-rgb(red=c(102,0,39,0,255,157,158,66,121,196),
green=c(193,140,86,0,255,197,214,48,120,192),
blue=c(191,86,98,0,255,68,227,137,112,179),
names=c("vert_inrae_clair","vert_inrae","vert_inrae_fonce","noir","blanc","vert","bleu_clair","bleu_fonce","gris_fonce","gris_clair"),
max= 255)
# HEX
couleurs_hex <- c('#00a3a6', '#66c1bf','#008c8e','#275662','#000')
```
# Introduction {data-background=#E0FFFF}
## A propos de ce modèle
Ce modèle utilise le framework `revealJS` pour produire une présentation dynamique au format HTML.
Google Chrome est recommandé pour la lecture de cette présentation.
La présentation est construite en 2 niveaux : Les titres de premiers niveau définissent la dimension horizontale tandis que les titre de second niveau (et plus) définissent la dimension verticale. Chaque titre correspond à une diapositive.
Lors de la présentation, la touche `'f'` permet de passer en plein écran (i.e. *fullscreen*) et la touche `'o'` permet d'obtenir une vision globale de la présentation (i.e. *overview*). La barre espace permet de faire défiler les diapositives dans l'ordre chronologique.
## Diapositive à puce {data-background=#FFA07A}
Chaque diapositive peut être colorée individuellement en rajoutant une de ces balises à la suite du titre de la diapositive :
- Couleur CSS : {data-background=#ff0000}
- Image de fond : {data-background="image.jpeg"} (fonctionne avec les GIF)
- Vidéo de fond {data-background-video="video.mp4"}
Pour plus d'informations sur la personnalisation (transitions, animation des listes à puces, etc.) : [consulter le README du package revealjs](https://github.com/rstudio/revealjs)
# Démonstrations {data-background=styles/agriculture.jpg}
## Diapositive avec graphique
Ci-dessous un graphique avec un thème INRAE :
```{r plot, out.width = "60%", fig.align = "center"}
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))
```
> Ceci est un bloc de citation.
## Mise en page avancée
<div class="container">
<div class="col">
Une première image à gauche :
![](styles/img1.jpeg)
</div>
<div class="col">
Puis une autre image à droite :
![](styles/img2.jpeg)
</div>
</div>
## Diapositive avec un tableau
```{r gt}
iris %>%
head(10) %>%
gt() %>%
tab_header(title = "Exemple de tableau sur le jeu de données iris") %>%
tab_options(table.width = pct(100))
```
## Avec affichage du code
```{r echo = TRUE, out.width = "80%", fig.align="center", fig.width = 10, fig.height = 4}
# 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))
```
# Merci de votre attention ! {data-background=#E0FFFF}
/* Style sheet for Reveal.js Presentations
Auteur : David Carayon
2017
*/
#left {
left:-8.33%;
text-align: left;
float: left;
width:50%;
z-index:-10;
}
#right {
left:31.25%;
top: 75px;
float: right;
text-align: right;
z-index:-10;
width:50%;
}
/* Logo */
body:after {
content: url(logo_INRAE.png);
position: fixed;
top: 3.5em;
right: 3.5em;}
<style>
/* Headings */
.reveal h1 { /* Heading 1 */
text-shadow: 0px 0px 6px rgba(0, 0, 0, 0.2); /* shadows */
font-weight: bold; /* bold */
color: #00a3a6
}
.reveal h2.author { /* Heading 2 for an author */
font-style: normal; /* could make bold or italics */
color: #00a3a6
}
/* Images */
.reveal section img{ /* images */
border: 0px;
box-shadow: none;/* no border but still shadow */
}
/* Slide content area */
/* these need to be at the bottom, do NOT move them */
.reveal .slides { /* all slide content */
text-align: left; /* left align */
font-size: 80%; /* smaller text */
}
.reveal .slides section>* { /* this is for left align */
margin-left: 0;
margin-right: 0;
}
.container{
display: flex;
}
.col{
flex: 1;
}
</style>
name: Présentation dynamique RevealJS
description: >
Production d'une présentation pré-formatée aux couleurs INRAE, en HTML, utilisant le framework revealJS.
create_dir: FALSE
name: Rapport INRAE PDF ou HTML
description: >
Production d'un rapport pré-formaté aux couleurs INRAE, aux deux formats PDF et HTML
Production d'un rapport pré-formaté aux couleurs INRAE, aux deux formats PDF et HTML, utilisant le framework pagedJS.
create_dir: FALSE
......@@ -4,7 +4,10 @@
\alias{theme_inrae}
\title{Title}
\usage{
theme_inrae()
theme_inrae(...)
}
\arguments{
\item{...}{}
}
\value{
......
......@@ -7,7 +7,9 @@
theme_inrae_1(base_size = 10, base_family = "Avenir Next Pro")
}
\arguments{
\item{base_family}{}
\item{base_size}{base size}
\item{base_family}{base family}
}
\value{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment