# NOT RUN {
# Use `exibble` to create a gt table;
# transform the formatted text in the
# `num` and `currency` columns using
# a function within `text_transform()`,
# where `x` is a formatted vector of
# column values
tab_1 <-
exibble %>%
dplyr::select(num, char, currency) %>%
dplyr::slice(1:4) %>%
gt() %>%
fmt_number(columns = vars(num)) %>%
fmt_currency(columns = vars(currency)) %>%
text_transform(
locations = cells_body(
columns = vars(num)),
fn = function(x) {
paste0(
x, " (",
dplyr::case_when(
x > 20 ~ "large",
x <= 20 ~ "small"),
")")
}
)
# }
Run the code above in your browser using DataLab