R/private_prepare_scdf.R

In scan: Single-Case Data Analyses for Single and Multiple Baseline Designs

.prepare_scdf <- function(data, na.rm = FALSE) {
  
  # check class scdf validity
  if (opt("rigorous_class_check")) {
    check_scdf(data)
  }

  pvar <- phase(data)
  mvar <- mt(data)
  dvar <- dv(data)
  
  # revise names -----
  names(data) <- revise_names(names(data), length(data))
  
  
  for(case in 1:length(data)) {
    
    if (inherits(data[[case]], "tbl_df")) {
      class(data[[case]]) <- "data.frame"
      message("Found tibble within scdf and changed it to data.frame.")
    }
    
    vars <- names(data[[case]])
    if (na.rm) data[[case]] <- data[[case]][!is.na(data[[case]][[dvar]]), ]
    if (!is.factor(data[[case]][[pvar]])) {
      data[[case]][[pvar]] <- as.factor(data[[case]][[pvar]])
    }
    data[[case]][[pvar]] <- droplevels(data[[case]][[pvar]])
  }
  data
}