R/kable_DureesSpecifiques.R

In INESSS-QC/polymed1: Polymédication

#' Annexe
#'
#' @param x Dataset des périodes de grâce spécifiques. Peut-être `NULL`.
#'
#' @keywords internal
#' @import kableExtra
#' @export
kable_DureesSpecifiques <- function(x){

# Code -------------------------------------------------------------------------------------------

  if(is.null(x)){
    return("\\begin{center} Aucune durée spécifique \\end{center}")
  } else if(nrow(x)){
    return(
      kable(
        x = as.data.frame(x),
        format = "latex",
        longtable = TRUE,  # tableau sur plusieurs pages
        booktabs = TRUE,
        row.names = FALSE,  # supprimer nom de ligne
        linesep = "",  # ne pas ajouter d'espace aux 5 lignes
        align = "r",  # alignement à droite
        escape = FALSE,  # ne pas convertir les caractères spéciaux
        col.names = linebreak(c("Code",
                                "Durée\n(jours)"),
                              align = "c")  # remplacer \n par un changement de ligne
      ) %>%
        kable_styling(
          latex_options = c("striped",  # les lignes sont rayées pour faciliter la lecteure
                            "hold_position",  # placer le tableau où il est appeler
                            "repeat_header"),  # répéter l'en-tête si changement de page
          position = "center"  # centrer le tableaau
        )
    )
  } else {
    return("\\begin{center} Aucune durée spécifique \\end{center}")
  }
}