Fix tabs bootstrap. Mise en forme

8 years ago · e3ffeedac2
--- a/cloture.Rmd
+++ b/cloture.Rmd
@@ -1,8 +1,8 @@
 <ul class="nav nav-tabs" id="myTab">
  <li class="active"><a href="#generalites">Généralités</a></li>
  <li><a href="#production">Production</a></li>
  <li><a href="#exhaustivite">Exhaustivité</a></li>
  <li><a href="#valorisation">Valorisation</a></li>
  <li class="active"><a href="#generalites" data-toggle="tab">Généralités</a></li>
  <li><a href="#production" data-toggle="tab">Production</a></li>
  <li><a href="#exhaustivite" data-toggle="tab">Exhaustivité</a></li>
  <li><a href="#valorisation" data-toggle="tab">Valorisation</a></li>
 </ul>

 ```{r init, echo = F, message = F}
@@ -50,11 +50,9 @@ sprintf("%02.f", mois) %>%

 ```

 <div class="tab-content" id="rapport">

 # {#generalites .tab-pane .active}
 # Outils informatiques

 # {#rapport .tab-content}
 ## {#generalites .tab-pane .active}
 ### Outils informatiques
 ```{r outils}
 data_frame(Logiciels = c("Fichsup",
                         "Genrsa",
@@ -68,8 +66,9 @@ data_frame(Logiciels = c("Fichsup",
  datatable(rownames = F)
 ```

 # Calendrier
    

 ### Calendrier
 ```{r calendrier}
 data_frame(Dates = rep(date, 5),
           `Évènement` = c("Clôture et arrêté des données Webpims, Extraction Webpims",
@@ -81,10 +80,8 @@ data_frame(Dates = rep(date, 5),
  datatable(rownames = F)
 ```

 # {#production .tab-pane .active}
 # Nombre total de RUM et de RSS transmis

 **Tableau 1 : Nombre de RUM et de RSS transmis pour la clôture**
 ## {#production .tab-pane .active}
 ### Nombre total de RUM et de RSS transmis
 ```{r tab1}
 rum %>%
  filter(annee_sortie == annee) %>%
@@ -98,9 +95,9 @@ rum %>%
            colnames = c("Type de résumé", "Nombre produit"))
 ```

 # Nombre de RUM et de RSS transmis par mois pour les 3 dernières années
    

 **Tableau 2a : Nombre de RUM transmis par mois pour les 3 dernières années**
 ### Nombre de RUM transmis par mois pour les 3 dernières années
 ```{r tab2a}
 rum %>%
  count(annee_sortie, mois_sortie) %>%
@@ -118,13 +115,11 @@ rum %>%
  datatable(rownames = c(mois_label, "Total clôture", "Total M12")) %>%
  formatPercentage(c(4,5), digits = 2)
 ```

 **Figure 2a : Nombre de RUM transmis par mois pour les 3 dernières années**
 ```{r fig2a}
 rum %>%
  count(annee_sortie, mois_sortie) %>%
  ungroup %>%
  

  ggplot +
    aes(x = mois_sortie,
        y = n,
@@ -141,9 +136,9 @@ rum %>%
          plot.title = element_text(hjust = 0))
 ```

 Données issues du tableau 2a
    

 **Tableau 2b : Nombre de RSS transmis par mois pour les 3 dernières années**
 ### Nombre de RSS transmis par mois pour les 3 dernières années
 ```{r tab2b}
 rss %>%
  count(annee_sortie, mois_sortie) %>%
@@ -161,8 +156,6 @@ rss %>%
  datatable(rownames = c(mois_label, "Total clôture", "Total M12")) %>%
  formatPercentage(c(4,5), digits = 2)
 ```

 **Figure 2b : Nombre de RSS transmis par mois pour les 3 dernières années**
 ```{r fig2b}
 rss %>%
  count(annee_sortie, mois_sortie) %>%
@@ -184,11 +177,9 @@ rss %>%
        plot.title = element_text(hjust = 0))
 ```

 Données issues du tableau 2b

 # Nombre de RSS transmis par mois et par type de séjours pour les 3 dernières années
    

 **Tableau 3a : Nombre de RSS de 1 jour et plus transmis par mois pour les 3 dernières années**
 #### Nombre de RSS de 1 jour et plus transmis par mois pour les 3 dernières années
 ```{r tab3a}
 rss %>%
  filter(duree_rss >= 1) %>%
@@ -207,8 +198,6 @@ rss %>%
  datatable(rownames = c(mois_label, "Total clôture", "Total M12")) %>%
  formatPercentage(c(4,5), digits = 2)
 ```

 **Figure 3a : Nombre de RSS de 1 jour et plus transmis par mois pour les 3 dernières années**
 ```{r fig3a}
 rss %>%
  filter(duree_rss >= 1) %>%
@@ -231,9 +220,9 @@ rss %>%
        plot.title = element_text(hjust = 0))
 ```

 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**
 #### Nombre de RSS de 0 jour (hors séances) transmis par mois pour les 3 dernières années
 ```{r tab3b}
 rss %>%
  filter(duree_rss == 0, cmd != 28) %>%
@@ -254,8 +243,6 @@ rss %>%
  datatable(rownames = c(mois_label, "Total clôture", "Total M12")) %>%
  formatPercentage(c(4,5), digits = 2)
 ```

 **Figure 3b : Nombre de RSS de 0 jour (hors séances) transmis par mois pour les 3 dernières années**
 ```{r fig3b}
 rss %>%
  filter(duree_rss == 0, cmd != 28) %>%
@@ -278,9 +265,9 @@ rss %>%
        plot.title = element_text(hjust = 0))
 ```

 Données issues du tableau 3b
    

 **Tableau 3c : Nombre de RSS de séance transmis par mois pour les 3 dernières années**
 #### Nombre de RSS de séance transmis par mois pour les 3 dernières années
 ```{r tab3c}
 rss %>%
  filter(duree_rss == 0, cmd == 28) %>%
@@ -299,14 +286,12 @@ rss %>%
  datatable(rownames = c(mois_label, "Total clôture", "Total M12")) %>%
  formatPercentage(c(4,5), digits = 2)
 ```

 **Figure 3c : Nombre de RSS de séance transmis par mois pour les 3 dernières années**
 ```{r fig3c}
 rss %>%
  filter(duree_rss == 0, cmd == 28) %>%
  count(annee_sortie, mois_sortie) %>%
  ungroup %>%
  

  ggplot +
  aes(x = mois_sortie,
      y = n,
@@ -323,11 +308,9 @@ rss %>%
        plot.title = element_text(hjust = 0))
 ```

 Données issues du tableau 3c

 # Nombre de RUM transmis par pôle pour les 3 dernières années
    

 **Tableau 4 : Nombre de RUM transmis par pôle depuis le début de l'année, pour les 3 dernières années**
 ### Nombre de RUM transmis par pôle pour les 3 dernières années
 ```{r tab4}
 rum %>%
  filter(mois_sortie <= mois) %>%
@@ -343,8 +326,6 @@ rum %>%
  datatable(colnames = c("Pôle" = 1), rownames = F) %>%
  formatPercentage(c(5,6), digits = 2)
 ```

 **Figure 4 : Nombre de RUM transmis par pôle depuis le début de l'année, pour les 3 dernières années**
 ```{r fig4}
 rum %>%
  filter(mois_sortie <= mois) %>%
@@ -366,12 +347,10 @@ rum %>%
        plot.title = element_text(hjust = 0))
 ```

 Données issues du tableau 4
 ## {#exhaustivite .tab-pane .active}
 ### Exhaustivité des RUM et des RSS en fonction du mois et de l'année de clôture

 # {#exhaustivite .tab-pane .active}
 # Exhaustivité des RUM et des RSS en fonction du mois et de l'année de clôture

 **Tableau 5 : Nombre de RUM et de RSS produits et transmis, et taux d'exhaustivité**
 #### Nombre de RUM et de RSS produits et transmis, et taux d'exhaustivité
 ```{r tab5}

 ```
@@ -391,16 +370,18 @@ Données issues du tableau 4

 ```

 # Exhaustivité des RSS au moment de la clôture pour les 2 dernières années
    

 **Figure 6**
 ### Exhaustivité des RSS au moment de la clôture pour les 2 dernières années
 ```{r fig6}

 ```

 # Exhaustivité mensuelle de la clôture
    

 ### Exhaustivité mensuelle de la clôture

 **Figure 7 : Taux d'exhaustivité des RSS pour la clôture actuelle selon le mois de sortie du RSS**
 #### Taux d'exhaustivité des RSS pour la clôture actuelle selon le mois de sortie du RSS
 ```{r fig7}
 rss %>%
  filter(annee_sortie == annee) %>%
@@ -424,7 +405,7 @@ rss %>%
        plot.title = element_text(hjust = 0))
 ```

 **Figure 8 : Nombre de RSS manquants pour la clôture actuelle selon le mois de sortie du RSS**
 #### Nombre de RSS manquants pour la clôture actuelle selon le mois de sortie du RSS
 ```{r fig8}
 gam %>%
  count(mois_sortie) %>%
@@ -443,9 +424,9 @@ gam %>%
        plot.title = element_text(hjust = 0))
 ```

 # Exhaustivité par pôle et par service
    

 **Tableau 9 : Nombre de RUM et taux d'exhaustivité par pole et par service**
 ### Exhaustivité par pôle et par service
 ```{r tab9}
 rum %>%
  filter(annee_sortie == annee) %>%
@@ -464,16 +445,14 @@ rum %>%
         pole_libelle = pole_libelle %>% factor) %>%
  arrange(pole_libelle, service_libelle) %>%
  mutate(service_libelle = ifelse(is.na(service_libelle), "TOTAL", service_libelle)) %>%
  

  datatable(colnames = c("Pôle", "Service de responsabilité", "RUM produits", "RUM manquants", "Exhaustivité"),
            filter = "top") %>%
            rownames = F) %>%
  formatPercentage(5, digits = 2)
 ```

 # {#valorisation .tab-pane .active}
 # Nombre et valorisation des RSA transmis, traités et valorisés

 **Tableau 10 : Nombre de RSA transmis et valorisés de l'année en cours et de l'année précédente**
 ## {#valorisation .tab-pane .active}
 ### Nombre et valorisation des RSA transmis, traités et valorisés
 ```{r tab10}
 Ovalide$SVA %>%
  full_join(OvalideP$SVA, by = "A") %>%
@@ -492,12 +471,11 @@ Ovalide$SVA %>%
                                                  ))) %>%
  formatCurrency(c(3,5), currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",")
 ```
 *Données issues des tableaux OVALIDE [1.V.1.SV] A de `r periode`*

 Données issues des tableaux OVALIDE [1.V.1.SV] A de `r periode`

 # Valorisation des RSA non pris en charge par l'Assurance Maladie
    

 **Tableau 11 : Valorisation des RSA supprimés de l'année en cours et de l'année précédente**
 ### Valorisation des RSA non pris en charge par l'Assurance Maladie
 ```{r tab11}
 Ovalide$VSS %>% select(1:3) %>%
  full_join(OvalideP$VSS %>% select(1:3), by = "A") %>%
@@ -516,12 +494,11 @@ Ovalide$VSS %>% select(1:3) %>%
            )) %>%
  formatCurrency(c(3,5), currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",")
 ```
 *Données issues des tableaux [1.V.1.VSS] A de `r periode`*

 Données issues des tableaux [1.V.1.VSS] A de `r periode`

 # Taux de remboursement des RSA pris en charge par l'Assurance Maladie
    

 **Tableau 12 : Taux de remboursement des séjours de l'année en cours et de l'année précédente**
 ### Taux de remboursement des RSA pris en charge par l'Assurance Maladie
 ```{r tab12}
 Ovalide$TXR %>%
  full_join(OvalideP$TXR, by = c("A", "B")) %>%
@@ -541,12 +518,12 @@ Ovalide$TXR %>%
            )) %>%
  formatCurrency(c(4, 6), digits = 2, currency = "", dec.mark = ",")
 ```
 *Données issues des tableaux OVALIDE [1.V.1.TXR] C de `r periode`*  
 _\* Séjours de NN, radiothérape ou PO_
 Données issues des tableaux OVALIDE [1.V.1.TXR] C de `r periode`

 # Valorisation des RSA pris en charge par l'Assurance Maladie
    

 **Tableau 13 : Détail de la valorisation des séjours et séances pris en charge par l'Assurance Maladie de l'année en cours et de l'année précédente**
 ### Valorisation des RSA pris en charge par l'Assurance Maladie
 ```{r tab13}
 Ovalide$RAV[-(1:2), c(1,4:6)] %>%
 full_join(OvalideP$RAV[-(1:2), c(1,4:6)], by = "A") %>%
@@ -573,16 +550,14 @@ Ovalide$RAV[-(1:2), c(1,4:6)] %>%
  formatPercentage(c(4, 7, 10), digits = 2) %>%
  formatCurrency(c(2, 3, 5, 6, 8, 9), currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",")
 ```

 *Données issues des tableaux OVALIDE [1.V.1.RAV] C de `r periode`*  
 <sup>1</sup> Montant Brut  
 <sup>2</sup> Montant avec Coefficient Prudentiel  
 <sup>3</sup> Montant Remboursé par l'Assurance Maladie  

 Données issues des tableaux OVALIDE [1.V.1.RAV] C de `r periode`

 # Valorisation des IVG, ATU, SE, actes et consultations
    

 **Tableau 14 : Effectifs et valorisation ACE de l'année en cours et de l'année précédente**
 ### Valorisation des IVG, ATU, SE, actes et consultations
 ```{r tab14}
 data_frame(A = c(Ovalide$VATU[nrow(Ovalide$VATU), 3:5] %>% unlist,
                 Ovalide$VSE[nrow(Ovalide$VSE), 3:5] %>% unlist,
@@ -607,15 +582,14 @@ data_frame(A = c(Ovalide$VATU[nrow(Ovalide$VATU), 3:5] %>% unlist,
  formatCurrency(1:3, currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",") %>%
  formatPercentage(4, digits = 2)
 ```
 <sup>1</sup>*Données issues des tableaux OVALIDE [2.V.VATU] de `r periode`*  
 <sup>2</sup>*Données issues des tableaux OVALIDE [2.V.VSE] de `r periode`*  
 <sup>3</sup>*Données issues des tableaux OVALIDE [2.V.VCCAM] de `r periode`*  
 <sup>4</sup>*Données issues des tableaux OVALIDE [2.V.VNGAP] de `r periode`*  

 <sup>1</sup>Données issues des tableaux OVALIDE [2.V.VATU] de `r periode`  
 <sup>2</sup>Données issues des tableaux OVALIDE [2.V.VSE] de `r periode`  
 <sup>3</sup>Données issues des tableaux OVALIDE [2.V.VCCAM] de `r periode`  
 <sup>4</sup>Données issues des tableaux OVALIDE [2.V.VNGAP] de `r periode`  

 # Nombre de Suppléments valorisés, Performance et Valorisation des séjours non envoyés
    

 **Tableau 15 : Nombre de suppléments valorisés de l'année en cours et de l'année précédente**
 ### Nombre de Suppléments valorisés, Performance et Valorisation des séjours non envoyés
 ```{r tab15}
 Ovalide$UMAS %>%
  full_join(OvalideP$UMAS, by = "A") %>%
@@ -627,10 +601,11 @@ Ovalide$UMAS %>%
  formatCurrency(2:4, currency = "", interval = 3, mark = "&nbsp;", digits = 0) %>%
  formatPercentage(5, digits = 2)
 ```
 *Données issues des tableaux OVALIDE [1.V.1.UMAS] E de `r periode`*

 Données issues des tableaux OVALIDE [1.V.1.UMAS] E de `r periode`
    

 **Tableau 16 : Prix Moyen du Cas Traité\* de l'année en cours et de l'année précédente**
 ### Prix Moyen du Cas Traité\* de l'année en cours et de l'année précédente
 ```{r tab16}
 Ovalide$SVB %>%
  mutate(B = C/B) %>%
@@ -648,36 +623,49 @@ Ovalide$SVB %>%
  formatPercentage(5, digits = 2) %>%
  formatCurrency(2:4, currency = "", interval = 3, mark = "&nbsp;", digits = 2, dec.mark = ",")
 ```
 *Données issues des tableaux OVALIDE [1.V.1.SV] B de `r periode`*  
 _\* Prix Moyen du Cas Traité = Total valorisation / nombre de RSA valorisés_

 Données issues des tableaux OVALIDE [1.V.1.SV] B de `r periode`
    

 **Tableau 17 : Estimation de la valorisation des séjours non transmis de l'année en cours et de l'année précédente**
 ### Estimation de la valorisation des séjours non transmis de l'année en cours et de l'année précédente
 ```{r tab17}


 ```
 *Données issues de la requête BO «`r current`» exécutée le `r date` et des tableaux OVALIDE [1.V.1.SV] B de `r periode`*  
 _\* Prix Moyen du Cas Traité = Total valorisation / nombre de RSA valorisés_

 Données issues de la requête BO «`r current`» exécutée le `r date` et des tableaux OVALIDE [1.V.1.SV] B de `r periode`
    

 **Tableau 18 : Indice de performance de la durée moyenne de séjours (IP-DMS) de l'année en cours et de l'année précédente**
 ### Indice de performance de la durée moyenne de séjours (IP-DMS) de l'année en cours et de l'année précédente
 ```{r tab18}
 Ovalide$EDMS %<>%
  filter(A != ".") %>%
  mutate(B = B %>% str_replace(",",".")) %>%
  mutate(B = B %>% as.numeric)

 OvalideP$EDMS %<>%
  filter(A != ".") %>%
  mutate(B = B %>% str_replace(",",".")) %>%
  mutate(B = B %>% as.numeric)

 IP_current <- (Ovalide$EDMS[[1, 2]] + Ovalide$EDMS[[4, 2]]) / (Ovalide$EDMS[[2, 2]] + Ovalide$EDMS[[5, 2]])
 IP_previous <- (OvalideP$EDMS[[1, 2]] + OvalideP$EDMS[[4, 2]]) / (OvalideP$EDMS[[2, 2]] + OvalideP$EDMS[[5, 2]])

 data_frame(IP_current, IP_previous) %>%
  datatable(rownames = "Indice de performance",
            colnames = c(current, previous)) %>%
  formatCurrency(1:2, currency = "", digits = 3, dec.mark = ",")
 ```
 *Données issues des tableaux OVALIDE [1.D2.EDMS] de `r periode`*  
 _\* Nb de journées / Nb de journées standardisées sur la DMS théorique_

 Données issues des tableaux OVALIDE [1.D2.EDMS] de `r periode`
 <script>
  window.onload = function() {
    // process widgets in hidden tabs, all
    // tabs must have active state
    $('.nav-tabs li:last-child a').tab("show");
    $('.nav-tabs li:first-child a').tab("show");
  };
 </script>