R/polycontiPage.R

In INESSS-QC/polymed1: Polymédication

#' Page
#'
#' Section de la polymédication continue.
#'
#' @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 t2 "AAAA-MM-JJ". Date de fin de la première période (`[DebutAnalyse, t2]`).
#' @param t3 "AAAA-MM-JJ". Date de début de la dernière période (`[t3, FinAnalyse]`).
#' @param Ech Pourcentage que représente l'échantillon par rapport à la population totale d'analyse.
#' @param conti_stats Dataset créé par la fonction `poly_stats()`.
#' @param conti_tabFreq Dataset créé par la fonction `poly_tabFreq()`.
#' @param conti_distFreq Dataset créé par la fonction `poly_distFreq()`.
#' @param conti_distCumul Dataset créé par la fonction `poly_distCumul()`.
#'
#' @keywords internal
#' @export
polycontiPage <- function(DebutAnalyse, FinAnalyse, t2, t3, Ech,
                          conti_stats, conti_tabFreq, conti_distFreq, conti_distCumul){

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

  ### Paramètres d'analyse
  .paramAnalyse <- function(DebutAnalyse, FinAnalyse, t2, t3, 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
    if(!is.Date(t2)) t2 <- as_date(t2)
    if(!is.Date(t3)) t3 <- as_date(t3)
    P1_njours <- njours(DebutAnalyse, t2)
    P1Text <- ifelse(P1_njours>1, "jours", "jour")
    P2_njours <- njours(t3, FinAnalyse)
    P2Text <- ifelse(P2_njours>1, "jours", "jour")
    deltat <- njours(t2+1, t3-1)
    deltaText <- ifelse(deltat > 1, "jours", "jour")

    return(paste0(
      quad(2),"--- Début : ",DebutAnalyse, nline(), rl(),
      quad(2),"--- Fin : ",FinAnalyse," (",nJours," ",print_nJours,")", nline(), rl(),
      quad(2),"--- P1 : ",t2," (",P1_njours," ",P1Text,")", nline(), rl(),
      quad(2),"--- P2 : ",t3," (",P2_njours," ",P2Text,")", nline(), rl(),
      quad(2),"--- $\\Delta$t : ",deltat," ",deltaText, nline(), rl(),
      quad(2),"--- Échantillon : ",print_pourcent
    ))
  }


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

  catx(
    titre_section("Polymédication continue", 1),
    titre_section("Paramètres d'analyse", 2),
    .paramAnalyse(DebutAnalyse, FinAnalyse, t2, t3, Ech),
    titre_section("Statistiques descriptives", 2),
    kable_statsDesc(conti_stats),
    titre_section("Distribution de l'indicateur", 2),
    text_tabFreq_nZero(conti_tabFreq),
    kable_tabFreq(conti_tabFreq),
    pagebreak()
  )
  print(conti_distFreq)
  catx(nline_image(),
       vspace(1))
  print(conti_distCumul)
  catx(pagebreak())
}