data <- dplyr::tibble(
grp = c("AA", "AA", NA, "BB", NA),
variable = c("A", "B", "A", "C", "C"),
variable_level = c(1, 2, 1, 3, 3),
A = rep(NA, 5),
B = rep(NA, 5),
.cards_idx = c(1:5)
)
cards:::.fill_overall_grp_values(data, vars_protected = ".cards_idx")
Run the code above in your browser using DataLab