Flexible way to format table values using dplyr & formattable

style_table_values.R

library(tidyverse) #need dplyr 1.0.0+ https://www.tidyverse.org/blog/2020/03/dplyr-1-0-0-summarise/
library(formattable)

df <- tibble(spent = 1:10,
       refund = 100:109,
       perc = seq(0.1, 1, 0.1),
       num = 1000:1009,
       blah = 1000:1009)
       
style_table_values <- function(df, 
                               comma = NULL, 
                               percent = NULL, 
                               currency = NULL,
                               comma_digits = 0,
                               percent_digits  = 1,
                               currency_digits = 0) {
  comma_expr <-  enexpr(comma)
  percent_expr <-  enexpr(percent)
  currency_expr <-  enexpr(currency)
  df %>% 
    mutate(across(c(!!comma_expr), formattable::comma, digits = comma_digits),
           across(c(!!percent_expr), formattable::percent, digits = percent_digits),
           across(c(!!currency_expr), formattable::currency, digits = currency_digits))
}

style_table_values(df, 
                   comma = contains("num"),
                   percent = c(contains("perc"), contains("spent")),
                   percent_digits = 0)