Есть ли способ добавить границы / вертикальную полосу к определенному столбцу с помощью gt()?

Question

Я создал таблицу с помощью gt(), и мне интересно, можно ли добавить границу / линию между подзаголовком "риск смещения" и подзаголовком "применимость", который простирается до конца таблицы.

Таблица была создана с помощью следующего кода:

probast_summary %>% 
  arrange(record_id) %>% 
  gt() %>% 
  data_color(
    columns = vars(population, predictors, outcomes, analysis, app_pop, app_pred, app_outcome),
    colors = scales::col_factor(
      palette = c("Low"="darkseagreen","High"="darkorange","Unclear"="grey"),
      domain=NULL
    )) %>% 
  tab_header(
    title="Prediction Model Risk of Bias Assessment Tool (PROBAST) Summary"
  ) %>% 
  tab_spanner(
    label = "Risk of Bias",
    columns = vars(population, predictors, outcomes, analysis)
  ) %>% 
  tab_spanner(
    label="Applicability",
    columns = vars(app_pop, app_pred, app_outcome)
  ) %>% 
  cols_label(
    record_id = "Study",
    population = "Participants",
    predictors = "Predictors",
    outcomes = "Outcome",
    analysis = "Analysis",
    app_pop = "Population",
    app_pred = "Predictors",
    app_outcome = "Outcome"
  )