|
|
@@ -7,6 +7,25 @@ library(stringr) |
|
|
|
|
|
|
|
annee <- 2017 |
|
|
|
|
|
|
|
# Fetch celine and data ---- |
|
|
|
celine <- GET(str_c("http://cngsante.fr/chiron", annee, "/celine/listing.html")) |
|
|
|
|
|
|
|
celine %>% |
|
|
|
content %>% |
|
|
|
html_node("tr:first-child") %>% |
|
|
|
html_text -> |
|
|
|
timestamp |
|
|
|
|
|
|
|
readRDS("prev_time.rds") -> prev_time |
|
|
|
|
|
|
|
if (timestamp == prev_time) |
|
|
|
{ |
|
|
|
q(save = "no") |
|
|
|
} else |
|
|
|
{ |
|
|
|
saveRDS(timestamp, file = "prev_time.rds") |
|
|
|
} |
|
|
|
|
|
|
|
db <- dbConnect(SQLite(), "ecn.db") |
|
|
|
|
|
|
|
# Fetch previous state ---- |
|
|
@@ -18,14 +37,6 @@ db %>% |
|
|
|
filter(timestamp == max(timestamp)) -> |
|
|
|
current |
|
|
|
|
|
|
|
# Fetch celine and data ---- |
|
|
|
celine <- GET(str_c("http://cngsante.fr/chiron", annee, "/celine/listing.html")) |
|
|
|
|
|
|
|
celine %>% |
|
|
|
content %>% |
|
|
|
html_node("tr:first-child") %>% |
|
|
|
html_text -> |
|
|
|
timestamp |
|
|
|
|
|
|
|
timestamp %>% |
|
|
|
str_extract("\\d+h\\d+") %>% |
|
|
@@ -46,7 +57,7 @@ date %>% |
|
|
|
mois |
|
|
|
case_when(mois == "jul" ~ "07", |
|
|
|
mois == "sep" ~ "09", |
|
|
|
mois %>% str_detect("^ao") ~ "08") -> |
|
|
|
mois == "aoû" ~ "08") -> |
|
|
|
mois |
|
|
|
|
|
|
|
timestamp <- str_c(annee, "-", mois, "-", jour, " ", heure) |
|
|
|