Rotate only some column labels?

[rsmiller74]

I am attempting to rotate column labels but only want to do it for some columns. Currently I am doing it in opt_css() but having problems with padding and rotating everything. Is there a way to do it as a tab_options? I am currently using:

opt_css(css = "#mygt .gt_col_heading {
text-align: center;
transform: rotate(-90deg)}"
)

[mdgrant]

Try adding a style:

vertical-text {
   writing-mode: vertical-lr;
   transform: rotate(180deg);
}

A function for labels to rotate:

vert_lab <- function(label){
  paste0("<vertical-text>", label, "</vertical-text>")
}

cols_label(
  study_l = md("Study"),
  kq1_eras = md(vert_lab("ERAS")),
  gen_comp = md(vert_lab("CGA")),
  ...