R/create_missing_summary.R

In omair-a-khan/ddictR: Create a Data Dictionary for any Data Set

create_missing_summary <- function(data = merged.df, epoch = 1:4) {
  for (epoch.i in epoch) {
    write_out(paste0("## Epoch ", epoch.i, " \n"))
    
    if (epoch.i %in% 1) {
      write_out("There are no participants missing all data for this epoch.")
    } else {
      write_out(paste0(print_missing_participants(data, epoch.i), collapse = ", "))
    }
    
    write_out("\n")
  }
}