Formatting, keep idhosp

donnees.R

@@ -34,26 +34,22 @@ 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( # + libellés pôles et services
-    src_mysql("pmsi_dim_nom", "livenne.chu-nancy.fr", user = "u992093", password = "Md;8G4iSm") %>%
-      tbl("structure") %>%
-      filter(um != "") %>%
-      select(uf_date_ferm, um, service_libelle, pole_libelle) %>%
-      arrange(um, uf_date_ferm) %>%
-      distinct %>%
-      collect %>%
-      add_rownames(var = "dummy") %>% # Dédoublonnage : 1 um -> 1 couple libellés
-      group_by(um) %>%
-      filter(dummy == last(dummy)) %>%
-      select(-dummy, -uf_date_ferm) %>%
-      ungroup
-  ) %>%
+  left_join(src_mysql("pmsi_dim_nom", "livenne.chu-nancy.fr", user = "u992093", password = "Md;8G4iSm") %>%
+            tbl("structure") %>%
+            filter(um != "") %>%
+            select(uf_date_ferm, um, service_libelle, pole_libelle) %>%
+            arrange(um, uf_date_ferm) %>%
+            distinct %>%
+            collect %>%
+            add_rownames(var = "dummy") %>% # Dédoublonnage : 1 um -> 1 couple libellés
+            group_by(um) %>%
+              filter(dummy == last(dummy)) %>%
+              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) %>%
+  # select(-idhosp) %>%
   mutate(duree_rum = date_sortie - date_entree) %>% # durée rum
-  left_join( # durée rss
-    group_by(., idrss) %>%
-      summarise(duree_rss = sum(duree_rum))
-  ) -> rum
+  left_join(group_by(., idrss) %>%
+            summarise(duree_rss = sum(duree_rum))) -> rum
 
-save(Ovalide, OvalideP, annee, mois, rum, date, file = "donnees.Rdata")
+save(Ovalide, OvalideP, annee, mois, rum, date, file = "donnees.Rdata")