Corrected août

feed_db.R

@@ -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)