From 584d219b4d0215f19d1727b4fbe28a0effdaf91a Mon Sep 17 00:00:00 2001
From: Carine Rey <carine.rey@ens-lyon.fr>
Date: Tue, 6 Sep 2022 16:56:31 +0200
Subject: [PATCH] fix mpg dataset construction (sessio2)
---
Makefile | 2 ++
session_2/session_2.Rmd | 10 +++++++---
2 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/Makefile b/Makefile
index 83a305e..5e3928e 100644
--- a/Makefile
+++ b/Makefile
@@ -33,7 +33,9 @@ public/session_1.html: public/ session_1/session_1.Rmd public/www/style_Rmd.css
Rscript -e 'rmarkdown::render("session_1/session_1.Rmd", output_dir = "public/")'
public/session_2.html: public/ session_2/session_2.Rmd public/www/style_Rmd.css
+ mkdir -p public/session_2/
Rscript -e 'rmarkdown::render("session_2/session_2.Rmd", output_dir = "public/")'
+ mv mpg.csv public/session_2/mpg.csv
public/session_3.html: public/ session_3/session_3.Rmd public/www/style_Rmd.css session_3/gapminder.xlsx
mkdir -p public/session_3/
diff --git a/session_2/session_2.Rmd b/session_2/session_2.Rmd
index dcfd13a..206332e 100644
--- a/session_2/session_2.Rmd
+++ b/session_2/session_2.Rmd
@@ -29,7 +29,7 @@ klippy::klippy(
tooltip_message = 'Click to copy',
tooltip_success = 'Copied !')
```
-```{r download_data, include=FALSE, eval=FALSE}
+```{r download_data, include=FALSE, eval=T}
library("tidyverse")
tmp <- tempfile(fileext = ".zip")
download.file("http://www.fueleconomy.gov/feg/epadata/vehicles.csv.zip",
@@ -176,9 +176,13 @@ For that we are going to use the command `read_csv` which is able to read a [csv
This command also works for file URL
-```{r mpg_download, cache=TRUE, message=FALSE}
+```{r mpg_download_local, cache=TRUE, message=FALSE, echo = F, include=F}
+new_mpg <- read_csv("./mpg.csv")
+```
+
+```{r mpg_download, cache=TRUE, message=FALSE, eval = F}
new_mpg <- read_csv(
- "http://perso.ens-lyon.fr/laurent.modolo/R/session_2/mpg.csv"
+ "https://can.gitbiopages.ens-lyon.fr/R_basis/session_2/mpg.csv"
)
```
--
GitLab