if (FALSE) { # requireNamespace("NBDCtoolsData", quietly = TRUE)
shadow <- tibble::tibble(
participant_id = c("1", "2", "3"),
session_id = c("1", "2", "3"),
var1 = c("Unknown", NA, NA),
var2 = c("Wish not to answer", NA, NA)
)
data <- tibble::tibble(
participant_id = c("1", "2", "3"),
session_id = c("1", "2", "3"),
var1 = c(NA, NA, 1),
var2 = c(NA, 2, NA)
)
shadow_replace_binding_missing(data, shadow)
}
Run the code above in your browser using DataLab