Pré-calcul des RSS

cloture.Rmd

@@ -145,8 +145,7 @@ Données issues du tableau 2a
 
 **Tableau 2b : Nombre de RSS transmis par mois pour les 3 dernières années**
 ```{r tab2b}
-rum %>%
-  distinct(idrss) %>%
+rss %>%
   count(annee_sortie, mois_sortie) %>%
   spread(annee_sortie, n) %>%
   bind_rows(filter(., mois_sortie <= mois) %>%
@@ -165,8 +164,7 @@ rum %>%
 
 **Figure 2b : Nombre de RSS transmis par mois pour les 3 dernières années**
 ```{r fig2b}
-rum %>%
-  distinct(idrss) %>%
+rss %>%
   count(annee_sortie, mois_sortie) %>%
   ungroup %>%
 
@@ -192,8 +190,7 @@ Données issues du tableau 2b
 
 **Tableau 3a : Nombre de RSS de 1 jour et plus transmis par mois pour les 3 dernières années**
 ```{r tab3a}
-rum %>%
-  distinct(idrss) %>%
+rss %>%
   filter(duree_rss >= 1) %>%
   count(annee_sortie, mois_sortie) %>%
   spread(annee_sortie, n) %>%
@@ -213,8 +210,7 @@ rum %>%
 
 **Figure 3a : Nombre de RSS de 1 jour et plus transmis par mois pour les 3 dernières années**
 ```{r fig3a}
-rum %>%
-  distinct(idrss) %>%
+rss %>%
   filter(duree_rss >= 1) %>%
   count(annee_sortie, mois_sortie) %>%
   ungroup %>%
@@ -239,8 +235,7 @@ Données issues du tableau 3a
 
 **Tableau 3b : Nombre de RSS de 0 jour (hors séances) transmis par mois pour les 3 dernières années**
 ```{r tab3b}
-rum %>%
-  distinct(idrss) %>%
+rss %>%
   filter(duree_rss == 0, cmd != 28) %>%
   count(annee_sortie, mois_sortie) %>%
   spread(annee_sortie, n) %>%
@@ -262,8 +257,7 @@ rum %>%
 
 **Figure 3b : Nombre de RSS de 0 jour (hors séances) transmis par mois pour les 3 dernières années**
 ```{r fig3b}
-rum %>%
-  distinct(idrss) %>%
+rss %>%
   filter(duree_rss == 0, cmd != 28) %>%
   count(annee_sortie, mois_sortie) %>%
   ungroup %>%
@@ -288,8 +282,7 @@ Données issues du tableau 3b
 
 **Tableau 3c : Nombre de RSS de séance transmis par mois pour les 3 dernières années**
 ```{r tab3c}
-rum %>%
-  distinct(idrss) %>%
+rss %>%
   filter(duree_rss == 0, cmd == 28) %>%
   count(annee_sortie, mois_sortie) %>%
   spread(annee_sortie, n) %>%
@@ -309,8 +302,7 @@ rum %>%
 
 **Figure 3c : Nombre de RSS de séance transmis par mois pour les 3 dernières années**
 ```{r fig3c}
-rum %>%
-  distinct(idrss) %>%
+rss %>%
   filter(duree_rss == 0, cmd == 28) %>%
   count(annee_sortie, mois_sortie) %>%
   ungroup %>%
@@ -410,8 +402,7 @@ Données issues du tableau 4
 
 **Figure 7 : Taux d'exhaustivité des RSS pour la clôture actuelle selon le mois de sortie du RSS**
 ```{r fig7}
-rum %>%
-  distinct(idrss) %>%
+rss %>%
   filter(annee_sortie == annee) %>%
   count(mois_sortie) %>%
   full_join(gam %>%

donnees.R

@@ -77,6 +77,11 @@ src_mysql("pmsi_dim", "localhost", user = user, password = password) %>%
   left_join(group_by(., idrss) %>%
             summarise(duree_rss = sum(duree_rum))) -> rum
 
+rum %>%
+  group_by(idrss) %>%
+  filter(idrum == max(idrum)) %>%
+  ungroup -> rss
+
 # GAM et structure --> hospit non codées
 print("LIVENNE : GAM")
 src_mysql("pmsi_dim", "localhost", user = user, password = password) %>%
@@ -109,4 +114,4 @@ src_mysql("pmsi_dim", "localhost", user = user, password = password) %>%
             pole_libelle = last(pole_libelle)) %>%
   mutate(mois_sortie = month(date_sortie)) -> gam
 
-save(Ovalide, OvalideP, annee, mois, rum, gam, date, file = "donnees.Rdata")
+save(Ovalide, OvalideP, annee, mois, rum, rss, gam, date, file = "donnees.Rdata")