2020

feed_db.R

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

init_db.R

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