# NOT RUN {
# Use `exibble` to create a gt table;
# with named arguments in `...`, we
# can specify the exact widths for
# table columns (using `TRUE` will
# capture all remaining columns)
tab_1 <-
  exibble %>%
  dplyr::select(
    num, char, date,
    datetime, row
  ) %>%
  gt() %>%
  cols_width(
    vars(num) ~ px(150),
    ends_with("r") ~ px(100),
    starts_with("date") ~ px(200),
    TRUE ~ px(60)
  )
# }
Run the code above in your browser using DataLab