changes in mef_ajouter_ope_date due to date format from IDG 🛠

Author: richaben

R/mef_ajouter_ope_date.R

@@ -12,15 +12,23 @@
 #' \dontrun{
 #' passerelle <- mef_ajouter_ope_date(df = passerelle)
 #' }
-mef_ajouter_ope_date <- function(df)
+mef_ajouter_ope_date <- function(df) {
 
-{
+  if(is.character(operation$ope_date)){
 
-  df %>%
-    left_join(y = operation %>% select(ope_id, ope_date)) %>% # récupération de la date
-    mutate(ope_date = as.character(ope_date), # mise au format de la date
-           annee = lubridate::ymd_hms(ope_date), # création variable année
-           annee = lubridate::year(annee),
-           ope_date = ymd_hms(ope_date))
+    df %>%
+      left_join(y = operation %>% select(ope_id, ope_date)) %>% # récupération de la date
 
+      mutate(ope_date = as.character(ope_date), # mise au format de la date
+             annee = lubridate::ymd_hms(ope_date), # création variable année
+             annee = lubridate::year(annee),
+             ope_date = ymd_hms(ope_date))
+  } else {
+
+    df %>%
+      left_join(y = operation %>% select(ope_id, ope_date)) %>%
+      mutate(
+        ope_date = lubridate::ymd_hms(ope_date+1), ## le format heure 00:00:00 pose problème, ajout d'1s
+        annee = lubridate::year(ope_date))
+  }
 }