diff --git a/Makefile b/Makefile index 83a305e32ed5840da7199ba6ef500f6d590f3c37..5e3928ef43d4c47fa23003757edffbe417af4fe1 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 dcfd13a8ddadb3b35b35dc1baf24c58e67b4d2ba..206332e6cd42f3b73b2055a940d5ec6afca0457f 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" ) ```