A suggestion how to align a column in a gt table to the decimal separator without monospace fonts

gt_table_align_decimal_separator.R

library(magrittr)

df <- tibble::tibble(
  var_a = c("a", "b", "c", "d"),
  var_b = c(1.234, 12.34, 123.4, 1234)
)

num_to_html <- function(num, separator = ".") {
  stringr::str_split_fixed(num, stringr::fixed(separator), n = 2) %>%
    as.data.frame() %>%
    dplyr::rename(integer = V1, decimal = V2) %>%
    dplyr::mutate(
      html_string = glue::glue(
        '<span style=" display:inline-block; text-align:right; width:{max(nchar(integer))}ch"> {integer} </span>',
        "{separator}",
        '<span style=" display:inline-block; text-align:left; width:{max(nchar(decimal))}ch"> {decimal} </span>'
      )
    ) %>%
    dplyr::pull(html_string)
}

df %>%
  dplyr::mutate(var_b_and_more_labeltext = purrr::map(num_to_html(var_b), gt::html)) %>%
  gt::gt()

Thanks @mrcaseb !

I used these ideas to refactor internals of gtExtras::fmt_pad_num()

https://jthomasmock.github.io/gtExtras/reference/fmt_pad_num.html

Oh nice! I forgot this thing existed. gtExtras became so powerful, I love it.