R/text_tabFreq_nZero.R

In INESSS-QC/polymed1: Polymédication

#' Texte sur Pages
#'
#' Les tableaux de fréquences ont en `attributes` le nombre de zéros (0) ainsi que le pourcentage que cela représente. Sert à indiquer la fréquence des gens sans consommation.
#'
#' @param tabFreq Tableau de fréquence
#'
#' @keywords internal
#' @export
text_tabFreq_nZero <- function(tabFreq){
  nZero <- attr(tabFreq, "nZero")$n  # nombre de 0
  p100 <- attr(tabFreq, "nZero")$ratio  # %
  return(paste0("Nombre de 0 (%) = ",formatr(nZero, 0)," (",formatr(p100*100, 2),")"))
}