R/custom_lab.R

In abjur/abjDash: Useful tools for producing ABJ Dashboards

#' Helper para tratar milhares e milhões
#' @name custom_lab
#' @description Função que facilita o cálculo de milhares e milhõess
#' @param x coluna
#' @param ... outros argumentos (não utilizado)
#' @param dinheiro transformar em dinheiro? Por padrao sim
#'
#' @export
custom_lab <- function(x, ..., dinheiro = TRUE) {
  x <- x %>%
    (scales::label_number_si())() %>%
    stringr::str_replace_all("M", "MM") %>%
    stringr::str_replace_all("K", "M")
  if (dinheiro) paste("R$ ", x) else x
}