Donnees GAM

donnees.R

@@ -52,4 +52,15 @@ src_mysql("pmsi_dim", "livenne.chu-nancy.fr", user = "u992093", password = "Md;8
   left_join(group_by(., idrss) %>%
             summarise(duree_rss = sum(duree_rum))) -> rum
 
-save(Ovalide, OvalideP, annee, mois, rum, date, file = "donnees.Rdata")
+src_mysql("pmsi_dim", "livenne.chu-nancy.fr", user = "u992093", password = "Md;8G4iSm") %>%
+  tbl("mvt_gam") %>%
+  select(idhosp, date_entree, date_sortie, uf) %>%
+  filter(date_sortie != "") %>%
+  collect %>%
+  mutate(date_entree = as.Date(date_entree),
+         date_sortie = as.Date(date_sortie)) %>%
+  filter(date_sortie >= str_c(annee, mois, "01", sep = "-"),
+         date_sortie < as.Date(str_c(annee, mois, "01", sep = "-")) + period(1, "month")) %>%
+  distinct -> gam
+
+save(Ovalide, OvalideP, annee, mois, rum, gam, date, file = "donnees.Rdata")