R/polycumulPage.R

In INESSS-QC/polymed1: Polymédication

#' Page
#'
#' Section de la polymédication cumulée.
#'
#' @param DebutAnalyse "AAAA-MM-JJ". Date de début de la période d'analyse.
#' @param FinAnalyse "AAAA-MM-JJ". Date de fin de la période d'analyse.
#' @param nPeriod Nombre de périodes à l'intérieur de la période d'analyse.
#' @param Ech Pourcentage que représente l'échantillon par rapport à la population totale d'analyse.
#' @param cumul_stats Dataset créé par la fonction `poly_stats()`.
#' @param cumul_tabFreq Dataset créé par la fonction `poly_tabFreq()`.
#' @param cumul_distFreq Dataset créé par la fonction `poly_distFreq()`.
#' @param cumul_distCumul Dataset créé par la fonction `poly_distCumul()`.
#' @param section_2e `TRUE` ou `FALSE`. Indique `(2)` au titre de la section.
#'
#' @keywords internal
#' @export
polycumulPage <- function(
  DebutAnalyse, FinAnalyse, nPeriod, Ech,
  cumul_stats,
  cumul_tabFreq,
  cumul_distFreq,
  cumul_distCumul,
  section_2e = FALSE
){

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

  ### Paramètres d'analyse de la section polymédication cumulée.
  .paramAnalyse <- function(DebutAnalyse, FinAnalyse, nPeriod, Ech){
    nJours <- njours(DebutAnalyse, FinAnalyse)  # nombre de jours dans la période d'analyse
    if(nJours == 1) print_nJours <- "jour" else print_nJours <- "jours"  # gérer texte au pluriel
    print_pourcent <- paste0(formatr(Ech)," %")  # pourcentage d'échantillon

    return(paste0(
      quad(2),"--- Début : ",DebutAnalyse, nline(), rl(),
      quad(2),"--- Fin : ",FinAnalyse," (",nJours," ",print_nJours,")", nline(), rl(),
      quad(2),"--- Nombre de périodes : ",nPeriod, nline(), rl(),
      quad(2),"--- Échantillon : ",print_pourcent
    ))
  }

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

  if(section_2e) titre_section <- "Polymédication cumulée (2)" else titre_section <- "Polymédication cumulée"
  catx(
    titre_section(titre_section, 1),
    titre_section("Paramètres d'analyse", 2),
    .paramAnalyse(DebutAnalyse, FinAnalyse, nPeriod, Ech),
    titre_section("Statistiques descriptives", 2),
    kable_statsDesc(cumul_stats),
    titre_section("Distribution de l'indicateur", 2),
    text_tabFreq_nZero(cumul_tabFreq),
    kable_tabFreq(cumul_tabFreq),
    pagebreak()
  )
  print(cumul_distFreq)
  catx(nline_image(),
       vspace(1))
  print(cumul_distCumul)
  catx(pagebreak())
}