make practical c + corresponding change Rdata file name extension

Makefile

 all: public/ \
     public/index.html \
 	public/Practical_a.html \
-	public/Practical_b.html
+	public/Practical_b.html \
+	public/Practical_c.html
 
 public/:
 	cp -R img public/ && cp -R www public/
@@ -18,6 +19,11 @@ public/Practical_b.html: public/ Practical_b.Rmd
 	cp practical_b.Rdata public/
 	cp Practical_b.Rmd public/
 
+public/Practical_c.html: public/ Practical_c.Rmd
+	Rscript -e 'rmarkdown::render("Practical_c.Rmd", output_dir = "public/")'
+	cp practical_c.Rdata public/
+	cp Practical_c.Rmd public/
+
 clean:
 	sudo rm -r local public
 

Practical_c.Rmd

@@ -131,12 +131,12 @@ We will use data stored in the `practical_c.RData` file.
 
 ```{r, include=F}
 # load data
-data_file <- "practical_c.RData"
+data_file <- "practical_c.Rdata"
 data_list <- load(data_file)
 ```
 
 ```{r, eval=F}
-# data_list <- load(url("https://lbmc.gitbiopages.ens-lyon.fr/hub/formations/ens_m1_ml/practical_c.Rdata"), verbose = T)
+data_list <- load(url("https://lbmc.gitbiopages.ens-lyon.fr/hub/formations/ens_m1_ml/practical_c.Rdata"), verbose = T)
 ```
 
 It contains the following objects:

practical_c_prepa.R

@@ -285,7 +285,7 @@ dim(yeast_av_data)
 
 
 #### save data ####
-file_name <- "practical_c.RData"
+file_name <- "practical_c.Rdata"
 save(
     list = c("gt_data", "morpho_data", "strain_id", 
              "yeast_data", "yeast_av_data"),