Prise en compte fusion CCEG

donnees.R

@@ -46,6 +46,13 @@ read.csv2("listOvalide.csv") %>%
   names(OvalideP) <<- .$name
 }
 
+if (annee == 2016)
+{
+  load("Ovalide.Rdata")
+  OvalideP <- CCEGCHU2015[[str_c("mois", mois, sep = "")]]
+  rm("CCEGCHU2015")
+}
+
 unlink(str_c("OVALIDE T2A.MCO.DGF", annee, mois, "html", sep = "."))
 unlink(str_c("OVALIDE T2A.MCO.DGF", annee - 1, mois, "html", sep = "."))