Avec une correction du code = téléchargement du fichier plutôt que de le lire...

Avec une correction du code = téléchargement du fichier plutôt que de le lire directement depuis l'URL

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -58,9 +58,11 @@ filename <- basename(data_url)
 On peut chercher si le fichier existe déjà dans le répertoire courant avec une fonction basique de R. S'il existe déjà, on le charge, sinon on le charge depuis l'URL.
 
 ```{r}
-if(file.exists(filename)) {
-  data = read.csv(filename, skip=1)
-} else data = read.csv(data_url, skip=1)
+if(!file.exists(filename)) {
+  download.file(data_url, filename, method = 'auto')
+}
+data = read.csv(filename, skip=1)
+
 ```