title: “KableExtra_issue”

format: html

---

```{r}

library(purrr)

library(tibble)

library(dplyr)

library(kableExtra)

# Define the example table:

kable_df <- map(-5:15, \(col) {

if (col == -5) {

tibble(“Relative Year (0 = Actual Year)” = c(“5-Year History”,

“5-Year Forecast”,

“10-Year Projection”,

“Growth Rate of Population 15+”))

} else if (col >= -4 & col <= 0) {

tibble(!!as.character(col) := c(“●”, ““,”“,”“))

} else if (col > 0 & col <= 5) {

tibble(!!as.character(col) := c(““,”●“,”“,”“))

} else {

tibble(!!as.character(col) := c(““,”“,”●“,”▲“))

}

}) |>

bind_cols()

# Add footnote numbers:

kable_df[2, 11] <- paste0(kable_df[2, 11], footnote_marker_number(1))

kable_df[3, 12] <- paste0(kable_df[3, 12], footnote_marker_number(2))

kable_df[4, 1] <- paste0(kable_df[4, 1], footnote_marker_number(3))

kable_df |>

kbl(escape = FALSE) |>

column_spec(column = 2:21, color = c(“black”, “black”, “black”, “#6495ED”)) |>

footnote(

number = c(“Base value for projections.”,

“First projected value.”,

“Dependent variable 1.”),

footnote_as_chunk = TRUE)

```