J'ai complété l'exercice

module3/exo1/analyse-syndrome-grippal.Rmd

@@ -32,15 +32,19 @@ Plutôt que d'ouvrir à chaque fois le fichier à partir du réseau, on l'enregi
 
 ```{r}
 
-donnees_grippe <- read.csv(data_url)
 
+donnees_grippe <- write.csv(donnees_grippe, file = "C:/Users/Sarah Chabert/Documents/mooc-rr/module3/exo1/donnees_grippe.csv", row.names = FALSE)
+
+
+if (!file.exists("C:/Users/Sarah Chabert/Documents/mooc-rr/module3/exo1/donnees_grippe.csv")) {
 write.csv(donnees_grippe, file = "C:/Users/Sarah Chabert/Documents/mooc-rr/module3/exo1/donnees_grippe.csv", row.names = FALSE)
+}
 ```
 
 Voici l'explication des colonnes donnée sur le [sur le site d'origine](https://ns.sentiweb.fr/incidence/csv-schema-v1.json):
 
 | Nom de colonne | Libellé de colonne |
-|--------------|----------------------------------------------------------|
+|-----------------|-------------------------------------------------------|
 | `week` | Semaine calendaire (ISO 8601) |
 | `indicator` | Code de l'indicateur de surveillance |
 | `inc` | Estimation de l'incidence de consultations en nombre de cas |