R/polycumulPondPage.R

In INESSS-QC/polymed1: Polymédication

#' Page
#'
#' Section de la polymédication cumulée pondéré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 Ech Pourcentage que représente l'échantillon par rapport à la population totale d'analyse.
#' @param cumulPond_stats Dataset créé par la fonction `poly_stats()`.
#' @param cumulPond_tabFreq Dataset créé par la fonction `poly_tabFreq()`.
#' @param cumulPond_distFreq Dataset créé par la fonction `poly_distFreq()`.
#' @param cumulPond_distCumul Dataset créé par la fonction `poly_distCumul()`.
#'
#' @keywords internal
#' @export
polycumulpondPage <- function(DebutAnalyse, FinAnalyse, Ech,
                              cumulPond_stats,
                              cumulPond_tabFreq,
                              cumulPond_distFreq,
                              cumulPond_distCumul){

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

  ### Paramètres d'analyse de la section
  .paramAnalyse <- function(DebutAnalyse, FinAnalyse, 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),"--- Échantillon : ",print_pourcent
    ))
  }


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

  catx(
    titre_section("Polymédication cumulée pondérée", 1),
    titre_section("Paramètres d'analyse", 2),
    .paramAnalyse(DebutAnalyse, FinAnalyse, Ech),
    titre_section("Statistiques descriptives", 2),
    kable_statsDesc(cumulPond_stats),
    titre_section("Distribution de l'indicateur", 2),
    text_tabFreq_nZero(cumulPond_tabFreq),
    kable_tabFreq(cumulPond_tabFreq),
    pagebreak()
  )
  print(cumulPond_distFreq)
  catx(nline_image(),
       vspace(1))
  print(cumulPond_distCumul)
  catx(pagebreak())
}