|
- source("functionsOvalide.R")
- library(lubridate)
-
- annee <- 2015
- mois <- 10
- date <- "04/12/2015"
-
- read.csv2("listOvalide.csv") %>%
- {
- apply(., 1, . %>%
- {
- df <- extractOvalide(annee, mois, .[2], .[3])
- names(df) <- LETTERS[1:length(df)]
- df
- }) ->> Ovalide
- names(Ovalide) <<- .$name
-
- apply(., 1, . %>%
- {
- df <- extractOvalide(annee - 1, mois, .[2], .[3])
- names(df) <- LETTERS[1:length(df)]
- df
- }) ->> OvalideP
- names(OvalideP) <<- .$name
- }
-
- src_mysql("pmsi_dim", "livenne.chu-nancy.fr", user = "u992093", password = "Md;8G4iSm") %>%
- 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")) %>%
- collect %>%
- mutate(date_entree = date_entree %>% as.Date,
- date_sortie = date_sortie %>% as.Date,
- 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
- ) %>%
- mutate(idrss = ifelse(idhosp %>% str_detect("^13"), str_c("m", idrss), idrss)) %>% # Dédoublonnage rss maternité 2013
- 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
-
- save(Ovalide, OvalideP, annee, mois, rum, date, file = "donnees.Rdata")
|