Bugfix in new dev version of htmlwidgets

cloture.Rmd

@@ -48,7 +48,7 @@ sprintf("%02.f", mois) %>%
 ## Généralités
 
 ### <a href="#outils" data-toggle="collapse" class="panel-heading">Outils informatiques</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #outils}
+#### {.panel-body .collapse #outils}
 ```{r outils}
 data_frame(Logiciels = c("Fichsup",
                          "Genrsa",
@@ -63,7 +63,7 @@ data_frame(Logiciels = c("Fichsup",
 ```
 
 ### <a href="#cal" data-toggle="collapse" class="panel-heading">Calendrier</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #cal}
+#### {.panel-body .collapse #cal}
 ```{r calendrier}
 data_frame(Dates = rep(date, 5),
            `Évènement` = c("Clôture et arrêté des données Webpims, Extraction Webpims",
@@ -78,7 +78,7 @@ data_frame(Dates = rep(date, 5),
 ## Production
 
 ### <a href="#tab1" data-toggle="collapse" class="panel-heading">Nombre total de RUM et de RSS transmis</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab1}
+#### {.panel-body .collapse #tab1}
 ```{r tab1}
 rum %>%
   filter(annee_sortie == annee) %>%
@@ -92,7 +92,7 @@ rum %>%
 ```
 
 ### <a href="#tab2a" data-toggle="collapse" class="panel-heading">Nombre de RUM transmis par mois pour les 3 dernières années</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab2a}
+#### {.panel-body .collapse #tab2a}
 ```{r tab2a}
 rum %>%
   count(annee_sortie, mois_sortie) %>%
@@ -132,7 +132,7 @@ rum %>%
 ```
 
 ### <a href="#tab2b" data-toggle="collapse" class="panel-heading">Nombre de RSS transmis par mois pour les 3 dernières années</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab2b}
+#### {.panel-body .collapse #tab2b}
 ```{r tab2b}
 rss %>%
   count(annee_sortie, mois_sortie) %>%
@@ -172,7 +172,7 @@ rss %>%
 ```
 
 #### <a href="#tab3a" data-toggle="collapse" class="panel-heading">Nombre de RSS de 1 jour et plus transmis par mois pour les 3 dernières années</a> {.panel .panel-default}
-##### {.panel-body .collapse .in #tab3a}
+##### {.panel-body .collapse #tab3a}
 ```{r tab3a}
 rss %>%
   filter(duree_rss >= 1) %>%
@@ -214,7 +214,7 @@ rss %>%
 ```
 
 #### <a href="#tab3b" data-toggle="collapse" class="panel-heading">Nombre de RSS de 0 jour (hors séances) transmis par mois pour les 3 dernières années</a> {.panel .panel-default}
-##### {.panel-body .collapse .in #tab3b}
+##### {.panel-body .collapse #tab3b}
 ```{r tab3b}
 rss %>%
   filter(duree_rss == 0, cmd != 28) %>%
@@ -258,7 +258,7 @@ rss %>%
 ```
 
 #### <a href="#tab3c" data-toggle="collapse" class="panel-heading">Nombre de RSS de séance transmis par mois pour les 3 dernières années</a> {.panel .panel-default}
-##### {.panel-body .collapse .in #tab3c}
+##### {.panel-body .collapse #tab3c}
 ```{r tab3c}
 rss %>%
   filter(duree_rss == 0, cmd == 28) %>%
@@ -300,7 +300,7 @@ rss %>%
 ```
 
 ### <a href="#tab4" data-toggle="collapse" class="panel-heading">Nombre de RUM transmis par pôle pour les 3 dernières années</a> {.panel .panel-default}
-##### {.panel-body .collapse .in #tab4}
+##### {.panel-body .collapse #tab4}
 ```{r tab4}
 rum %>%
   filter(mois_sortie <= mois) %>%
@@ -343,7 +343,7 @@ rum %>%
 ### Exhaustivité des RUM et des RSS en fonction du mois et de l'année de clôture
 
 #### <a href="#tab5" data-toggle="collapse" class="panel-heading">Nombre de RUM et de RSS produits et transmis, et taux d'exhaustivité : historique des clôtures de l'année</a> {.panel .panel-default}
-##### {.panel-body .collapse .in #tab5}
+##### {.panel-body .collapse #tab5}
 ```{r tab5}
 
 ```
@@ -372,7 +372,7 @@ rum %>%
 *L'exhaustivité est calculée à partir de la base GAM*
 
 #### <a href="#fig7" data-toggle="collapse" class="panel-heading">Taux d'exhaustivité des RSS pour la clôture actuelle selon le mois de sortie du RSS</a> {.panel .panel-default}
-##### {.panel-body .collapse .in #fig7}
+##### {.panel-body .collapse #fig7}
 ```{r fig7}
 rss %>%
   filter(annee_sortie == annee) %>%
@@ -398,7 +398,7 @@ rss %>%
 ```
 
 #### <a href="#fig8" data-toggle="collapse" class="panel-heading">Nombre de RSS manquants pour la clôture actuelle selon le mois de sortie du RSS</a> {.panel .panel-default}
-##### {.panel-body .collapse .in #fig8}
+##### {.panel-body .collapse #fig8}
 ```{r fig8}
 gam %>%
   count(mois_sortie) %>%
@@ -419,7 +419,7 @@ gam %>%
 ```
 
 ### <a href="#tab9" data-toggle="collapse" class="panel-heading">Exhaustivité par pôle et par service</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab9}
+#### {.panel-body .collapse #tab9}
 ```{r tab9}
 rum %>%
   filter(annee_sortie == annee) %>%
@@ -447,7 +447,7 @@ rum %>%
 ## Valorisation
 
 ### <a href="#tab10" data-toggle="collapse" class="panel-heading">Nombre et valorisation des RSA transmis, traités et valorisés</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab10}
+#### {.panel-body .collapse #tab10}
 ```{r tab10}
 Ovalide$SVA %>%
   full_join(OvalideP$SVA, by = "A") %>%
@@ -469,7 +469,7 @@ Ovalide$SVA %>%
 *Données issues des tableaux OVALIDE [1.V.1.SV] A de `r periode`*
 
 ### <a href="#tab11" data-toggle="collapse" class="panel-heading">Valorisation des RSA non pris en charge par l'Assurance Maladie</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab11}
+#### {.panel-body .collapse #tab11}
 ```{r tab11}
 Ovalide$VSS %>% select(1:3) %>%
   full_join(OvalideP$VSS %>% select(1:3), by = "A") %>%
@@ -491,7 +491,7 @@ Ovalide$VSS %>% select(1:3) %>%
 *Données issues des tableaux [1.V.1.VSS] A de `r periode`*
 
 ### <a href="#tab12" data-toggle="collapse" class="panel-heading">Taux de remboursement des RSA pris en charge par l'Assurance Maladie</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab12}
+#### {.panel-body .collapse #tab12}
 ```{r tab12}
 Ovalide$TXR %>%
   full_join(OvalideP$TXR, by = c("A", "B")) %>%
@@ -515,7 +515,7 @@ Ovalide$TXR %>%
 _\* Séjours de NN, radiothérape ou PO_
 
 ### <a href="#tab13" data-toggle="collapse" class="panel-heading">Valorisation des RSA pris en charge par l'Assurance Maladie</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab13}
+#### {.panel-body .collapse #tab13}
 ```{r tab13}
 Ovalide$RAV[-(1:2), c(1,4:6)] %>%
  full_join(OvalideP$RAV[-(1:2), c(1,4:6)], by = "A") %>%
@@ -548,7 +548,7 @@ Ovalide$RAV[-(1:2), c(1,4:6)] %>%
 <sup>3</sup> Montant Remboursé par l'Assurance Maladie  
 
 ### <a href="#tab14" data-toggle="collapse" class="panel-heading">Valorisation des IVG, ATU, SE, actes et consultations</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab14}
+#### {.panel-body .collapse #tab14}
 ```{r tab14}
 data_frame(A = c(Ovalide$VATU[nrow(Ovalide$VATU), 3:5] %>% unlist,
                  Ovalide$VSE[nrow(Ovalide$VSE), 3:5] %>% unlist,
@@ -579,7 +579,7 @@ data_frame(A = c(Ovalide$VATU[nrow(Ovalide$VATU), 3:5] %>% unlist,
 <sup>4</sup>*Données issues des tableaux OVALIDE [2.V.VNGAP] de `r periode`*  
 
 ### <a href="#tab15" data-toggle="collapse" class="panel-heading">Nombre de Suppléments valorisés, Performance et Valorisation des séjours non envoyés</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab15}
+#### {.panel-body .collapse #tab15}
 ```{r tab15}
 Ovalide$UMAS %>%
   full_join(OvalideP$UMAS, by = "A") %>%
@@ -594,7 +594,7 @@ Ovalide$UMAS %>%
 *Données issues des tableaux OVALIDE [1.V.1.UMAS] E de `r periode`*
 
 ### <a href="#tab16" data-toggle="collapse" class="panel-heading">Prix Moyen du Cas Traité\* de l'année en cours et de l'année précédente</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab16}
+#### {.panel-body .collapse #tab16}
 ```{r tab16}
 Ovalide$SVB %>%
   mutate(B = C/B) %>%
@@ -627,7 +627,7 @@ _\* Prix Moyen du Cas Traité = Total valorisation / nombre de RSA valorisés_
 -->
 
 ### <a href="#tab18" data-toggle="collapse" class="panel-heading">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</a> {.panel .panel-default}
-#### {.panel-body .collapse .in #tab18}
+#### {.panel-body .collapse #tab18}
 ```{r tab18}
 Ovalide$EDMS %<>%
   filter(A != ".") %>%
@@ -649,11 +649,3 @@ data_frame(IP_current, IP_previous) %>%
 ```
 *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_
-
-<script>
-  window.onload = function() {
-    $('.nav-tabs li a').tab("show");
-    $('.nav-tabs li:first-child a').tab("show");
-    $('.panel-body').collapse();
-  };
-</script>