# NOT RUN {
# Use `exibble` to create a gt table; add a
# spanner column label over three column
# labels and then use `tab_style()` to make
# the spanner label text bold
tab_1 <-
exibble %>%
dplyr::select(-fctr, -currency, -group) %>%
gt(rowname_col = "row") %>%
tab_spanner(
label = "dates and times",
columns = vars(date, time, datetime)
) %>%
tab_style(
style = cell_text(weight = "bold"),
locations = cells_column_spanners(spanners = "dates and times")
)
# }
Run the code above in your browser using DataLab