R/kable_consoMin.R

In INESSS-QC/polymed1: Polymédication

#' Consommation minimale
#'
#' Statistiques descriptives sur le nombre de jours qu'un individu consomme au moins *X* médicaments.
#'
#' @param x Dataset créé par la fonction `polysimul_consoMinimale()`.
#'
#' @keywords internal
#' @import kableExtra
#' @import data.table
#' @export
kable_consoMin <- function(x){

# Fonctions --------------------------------------------------------------------------------------

  ### Arrangement du data
  .arrangeData <- function(x){
    x <- copy(x)
    x[, `:=` (nRx = paste0("$\\geq$ ",nRx),  # ajouter signe >=
              Moyenne = formatr(Moyenne),  # format des colonnes
              `Écart-type` = formatr(`Écart-type`),
              Min = formatr(Min),
              P5 = formatr(P5),
              P10 = formatr(P10),
              Q1 = formatr(Q1),
              `Médiane` = formatr(`Médiane`),
              Q3 = formatr(Q3),
              P90 = formatr(P90),
              P95 = formatr(P95),
              Max = formatr(Max),
              n = formatr(n, 0))]
    setnames(x, "nRx", "Médicaments")
    return(x)
  }


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

  return(
    kable(
      x = .arrangeData(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
    ) %>%
      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
      )
  )
}