From fc06d4ee6a9f08b957a75044cfff303490757843 Mon Sep 17 00:00:00 2001
From: GD <gd.dev@libertymail.net>
Date: Wed, 28 Sep 2022 18:31:11 +0200
Subject: [PATCH] make practical c + corresponding change Rdata file name
extension
---
Makefile | 8 +++++++-
Practical_c.Rmd | 4 ++--
practical_c.RData => practical_c.Rdata | Bin
practical_c_prepa.R | 2 +-
4 files changed, 10 insertions(+), 4 deletions(-)
rename practical_c.RData => practical_c.Rdata (100%)
diff --git a/Makefile b/Makefile
index 2464d08..bf97359 100644
--- a/Makefile
+++ b/Makefile
@@ -1,7 +1,8 @@
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
diff --git a/Practical_c.Rmd b/Practical_c.Rmd
index 396d9c5..fd25891 100644
--- a/Practical_c.Rmd
+++ b/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:
diff --git a/practical_c.RData b/practical_c.Rdata
similarity index 100%
rename from practical_c.RData
rename to practical_c.Rdata
diff --git a/practical_c_prepa.R b/practical_c_prepa.R
index 1a38bea..d3dd54d 100644
--- a/practical_c_prepa.R
+++ b/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"),
--
GitLab