2018

feed_db.R

@@ -5,10 +5,10 @@ library(httr)
 library(rvest)
 library(stringr)
 
-annee <- 2017
+annee <- 2018
 
 # Fetch celine and data ----
-celine <- GET(str_c("http://cngsante.fr/chiron", annee, "/celine/listing.html"))
+celine <- GET("http://cngsante.fr/chiron/celine/listing.html")
 
 celine %>%
   content %>%

init_db.R

@@ -5,11 +5,11 @@ library(httr)
 library(rvest)
 library(stringr)
 
-annee <- 2017
+annee <- 2018
 
 db <- dbConnect(SQLite(), "ecn.db")
 
-celine <- GET(str_c("http://cngsante.fr/chiron", annee, "/celine/listing.html"))
+celine <- GET("http://cngsante.fr/chiron/celine/listing.html")
 
 celine %>%
   content %>%