# NOT RUN {
# Use `exibble` to create a gt table,
# keeping only the `currency` and `num`
# columns; merge columns into one with
# a base value and uncertainty (after
# formatting the `num` column)
tab_1 <-
exibble %>%
dplyr::select(currency, num) %>%
dplyr::slice(1:7) %>%
gt() %>%
fmt_number(
columns = vars(num),
decimals = 3,
use_seps = FALSE
) %>%
cols_merge_uncert(
col_val = vars(currency),
col_uncert = vars(num)
) %>%
cols_label(
currency = "value + uncert."
)
# }
Run the code above in your browser using DataLab