R/polyNoInterPage.R

In INESSS-QC/polymed1: Polymédication

#' Page
#'
#' Section de la polymédication continue sans interruption.
#'
#' @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 noInter_stats Dataset créé par la fonction `poly_stats()`.
#' @param noInter_tabFreq Dataset créé par la fonction `poly_tabFreq()`.
#' @param noInter_distFreq Dataset créé par la fonction `poly_distFreq()`.
#' @param noInter_distCumul Dataset créé par la fonction `poly_distCumul()`.
#'
#' @keywords internal
#' @export
polynointerPage <- function(DebutAnalyse, FinAnalyse, Ech,
                            noInter_stats,
                            noInter_tabFreq,
                            noInter_distFreq,
                            noInter_distCumul){

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

  ### Paramètres d'analyse
  .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 continue sans interruption", 1),
    titre_section("Paramètres d'analyse", 2),
    .paramAnalyse(DebutAnalyse, FinAnalyse, Ech),
    titre_section("Statistiques descriptives", 2),
    kable_statsDesc(noInter_stats),
    titre_section("Distribution de l'indicateur", 2),
    text_tabFreq_nZero(noInter_tabFreq),
    kable_tabFreq(noInter_tabFreq),
    pagebreak()
  )
  print(noInter_distFreq)
  catx(nline_image(),
       vspace(1))
  print(noInter_distCumul)
  catx(pagebreak())
}