# NOT RUN {
# Use `exibble` to create a gt table;
# keep only the `char` column;
# pass the data in that column through
# but apply a simple pattern that adds
# an 's' to the non-NA values
tab_1 <-
exibble %>%
dplyr::select(char) %>%
gt() %>%
fmt_passthrough(
columns = vars(char),
rows = !is.na(char),
pattern = "{x}s"
)
# }
Run the code above in your browser using DataLab