adapter le tableau de synthes epour qu il fonctionne avec toutes les regions

Closes #53 (closed)

R/creer_tableau_6_1.R

@@ -169,13 +169,12 @@ creer_tableau_6_1 <- function(millesime_obs_artif_gk3 = NULL, millesime_populati
   nb_lign5 <- nrow(tab5)
   n = nb_lign1+nb_lign2+nb_lign3+nb_lign4+nb_lign5
 
- # # existence ou non de donnees et calcul de la ligne a souligner
- #  soulign1 <- ifelse (nrow(tab1)==0 ,0,1)
- #  soulign2 <- ifelse (nrow(tab2)==0 ,0,1)
- #  soulign3 <- ifelse (nrow(tab3)==0 ,0,1)
- #  soulign4 <- ifelse (nrow(tab4)==0 ,0,1)
- #  soulign5 <- ifelse (nrow(tab5)==0 ,0,1)
- #
+
+  # ajout d'une ligne vide à la table data_regroupe pour resoudre probleme de manque de donnees sur le dernier theme
+  df <- data_regroupe[nrow(data_regroupe) + 1,]
+  data_regroupe <- rbind (data_regroupe,df)
+
+
 tableau_6_1 <- data_regroupe %>%
   dplyr::select(-.data$TypeZone1) %>%
   knitr::kable("html", caption = "Tableau de synth\u00e8se",
@@ -193,6 +192,7 @@ tableau_6_1 <- data_regroupe %>%
                              glue::glue("Surface artificialis\u00e9e par habitant ",millesime_population - 9," (m2)" ),
                              glue::glue("Surface (m2) artificialis\u00e9e pour un nouvel habitant suppl\u00e9mentaire "," (",millesime_debut,"/",millesime_obs_artif_gk3,")")
                                         ),
+               row.names = FALSE,
                format.args=list(big.mark=" ",decimal.mark=","))%>%
   kableExtra::kable_styling(bootstrap_options = c("condensed"),font_size = 10, full_width = F, position = "float_left") %>%
   kableExtra::row_spec(0, bold = T, background = "#f0f0f5") %>%
@@ -211,7 +211,7 @@ tableau_6_1 <- data_regroupe %>%
                            Surfaces artificialis\u00e9es hors routes"),
          general="")
 
-return(tableau_6_1)
 
+return(tableau_6_1)
 
 }