diff --git a/session_3/session_3.Rmd b/session_3/session_3.Rmd
index 180bb690b7fd453d51313cffee518e0bfba10be9..10e14ed681ae4fcf14ad6b33beef57bfdd6fe629 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)
+``` 
+
+ `r fa(name = "fas fa-house", fill = "grey", height = "1em")`  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>