From b2b95d456a26ab108a198ca2f6f0b38ec8f9d9d8 Mon Sep 17 00:00:00 2001
From: Carine Rey <carine.rey@ens-lyon.fr>
Date: Tue, 6 Sep 2022 16:12:49 +0200
Subject: [PATCH] update session_3

---
 session_3/session_3.Rmd | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/session_3/session_3.Rmd b/session_3/session_3.Rmd
index 180bb69..10e14ed 100644
--- a/session_3/session_3.Rmd
+++ b/session_3/session_3.Rmd
@@ -1,16 +1,22 @@
 ---
 title: 'R.3: Transformations with ggplot2'
 author: "Laurent Modolo [laurent.modolo@ens-lyon.fr](mailto:laurent.modolo@ens-lyon.fr), Hélène Polvèche [hpolveche@istem.fr](mailto:hpolveche@istem.fr)"
-date: "2021"
+date: "2022"
 output:
   rmdformats::downcute:
     self_contain: true
     use_bookdown: true
     default_style: "light"
     lightbox: true
-    css: "http://perso.ens-lyon.fr/laurent.modolo/R/src/style.css"
+    css: "../www/style_Rmd.css"
 ---
 
+```{r include=FALSE}
+library(fontawesome)
+``` 
+
+&ensp;`r fa(name = "fas fa-house", fill = "grey", height = "1em")` &ensp;https://can.gitbiopages.ens-lyon.fr/R_basis/
+
 ```{r setup, include=FALSE}
 rm(list=ls())
 knitr::opts_chunk$set(echo = TRUE)
@@ -343,7 +349,7 @@ ggplot(data = diamonds, mapping = aes(x = cut, fill = cut)) +
 
 By combining the right **geom**, **coordinates** and **faceting** functions, you can build a large number of different plots to present your results.
 
-# See you in [R.4: data transformation](http://perso.ens-lyon.fr/laurent.modolo/R/session_4/)
+# See you in [R.4: data transformation](https://can.gitbiopages.ens-lyon.fr/R_basis/session_4/)
 
 # To go further:  animated plots from xls files
 
@@ -359,13 +365,13 @@ library(gifski)
 ```
 
 <div class="pencardre">
-Use the `openxlsx` package to save the [http://perso.ens-lyon.fr/laurent.modolo/R/session_3/gapminder.xlsx](http://perso.ens-lyon.fr/laurent.modolo/R/session_3/gapminder.xlsx) file to the `gapminder` variable
+Use the `openxlsx` package to save the [https://can.gitbiopages.ens-lyon.fr/R_basis/session_3/gapminder.xlsx](https://can.gitbiopages.ens-lyon.fr/R_basis/session_3/gapminder.xlsx) file to the `gapminder` variable
 </div>
 
 <details><summary>Solution</summary>
 <p>
 ```{r load_xlsx}
-gapminder <- read.xlsx("http://perso.ens-lyon.fr/laurent.modolo/R/session_3/gapminder.xlsx")
+gapminder <- read.xlsx("https://can.gitbiopages.ens-lyon.fr/R_basis/session_3/gapminder.xlsx")
 ```
 </p>
 </details>
-- 
GitLab