if (FALSE) { # requireNamespace("NBDCtoolsData", quietly = TRUE)
data <- tibble::tibble(
participant_id = c("sub-001", "sub-002", "sub-003"),
session_id = c("ses-001", "ses-001", "ses-002"),
var1 = c(NA, NA, 1),
var2 = c(NA, NA, 2),
var3 = c(NA, NA, 3)
)
filter_empty_rows(data)
}
Run the code above in your browser using DataLab