R/p_price.R

In fthielen/tatooheen: Technology Appraisal TOOlbox for Health Economic Evaluations in the Netherlands

#' A function to write pretty prices in `bookdown` reports
#' @param x A number to be printed
#' @param currency The name of the currency
#' @param digi Number of digits
#' @param ... Extra arguments for `formatC()`
#' @export p_price
#'

p_price <- function(x, digi = 2, currency = "EUR", ...){

        paste(formatC(round(x, digits = digi),
                  big.mark = ",",
                  format = "f",
                  digits = digi, ...), currency)

}