r - kableExtra: 動的な add_header_above ラベル付け

Question

rmarkdownでpdfを作成したいと思います。PDF には表が含まれている必要があります。テーブルには動的な列ラベルが必要です。

タブヘッドにはカレンダーの週が表示されます。

ただし、暦週（例：KW29）は表示されず、変数名「kw0」が表示されます。

私のエラーは何ですか？

library(knitr)
library(kableExtra)
library(lubridate)
options(knitr.table.format = "latex")
loadData <- function() {# load some data}

myData<- loadData ()

kw0 <- paste("KW", week(Sys.Date()) - 1, sep = "")
kw1 <- paste("KW", week(Sys.Date()), sep = "")
kw2 <- paste("KW", week(Sys.Date()) + 1, sep = "")
kw3 <- paste("KW", week(Sys.Date()) + 2, sep = "")


kable(myData, row.names = FALSE, booktabs = T) %>%
  kable_styling(
  full_width = TRUE,
  font_size = 14 
  )  %>% add_header_above(header = c(" " = 1, kw0 = 2, kw1 = 2, kw2 = 2, kw3 = 2))

アドバイスをいただければ幸いです。