Password !!!

donnees.R

@@ -5,6 +5,9 @@ annee <- 2015
 mois  <- 10
 date <- "04/12/2015"
 
+user <- ""
+password <- ""
+
 read.csv2("listOvalide.csv") %>%
 {
   apply(., 1, . %>%
@@ -24,7 +27,7 @@ read.csv2("listOvalide.csv") %>%
   names(OvalideP) <<- .$name
 }
 
-src_mysql("pmsi_dim", "livenne.chu-nancy.fr", user = "u992093", password = "Md;8G4iSm") %>%
+src_mysql("pmsi_dim", "livenne.chu-nancy.fr", user = user, password = password) %>%
   tbl(sql("SELECT idhosp, idrss, idrum, date_entree, date_sortie, cmd, um FROM fix116
           UNION
           SELECT idhosp, idrss, idrum, date_entree, date_sortie, cmd, um FROM fix117")) %>%
@@ -34,7 +37,7 @@ src_mysql("pmsi_dim", "livenne.chu-nancy.fr", user = "u992093", password = "Md;8
          annee_sortie = year(date_sortie),
          mois_sortie = month(date_sortie)) %>%
   filter(annee_sortie > annee - 3) %>% # Données rum/rss depuis 3 ans
-  left_join(src_mysql("pmsi_dim_nom", "livenne.chu-nancy.fr", user = "u992093", password = "Md;8G4iSm") %>%
+  left_join(src_mysql("pmsi_dim_nom", "livenne.chu-nancy.fr", user = user, password = password) %>%
             tbl("structure") %>%
             filter(um != "") %>%
             select(uf_date_ferm, um, service_libelle, pole_libelle) %>%
@@ -47,20 +50,23 @@ src_mysql("pmsi_dim", "livenne.chu-nancy.fr", user = "u992093", password = "Md;8
               select(-dummy, -uf_date_ferm) %>%
               ungroup) %>%
   mutate(idrss = ifelse(idhosp %>% str_detect("^13"), str_c("m", idrss), idrss)) %>% # Dédoublonnage rss maternité 2013
-  # select(-idhosp) %>%
+  mutate(idhosp = idhosp %>% str_replace_all(" ", "")) %>%
   mutate(duree_rum = date_sortie - date_entree) %>% # durée rum
   left_join(group_by(., idrss) %>%
             summarise(duree_rss = sum(duree_rum))) -> rum
 
-src_mysql("pmsi_dim", "livenne.chu-nancy.fr", user = "u992093", password = "Md;8G4iSm") %>%
+src_mysql("pmsi_dim", "livenne.chu-nancy.fr", user = user, password = password) %>%
   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 = "-"),
+  filter(date_sortie >= as.Date(str_c(annee, "01", "01", sep = "-")),
          date_sortie < as.Date(str_c(annee, mois, "01", sep = "-")) + period(1, "month")) %>%
   distinct -> gam
 
+gam %>%
+  anti_join(rum, by="idhosp")
+
 save(Ovalide, OvalideP, annee, mois, rum, gam, date, file = "donnees.Rdata")