R/write_file_variety.R

In nelsonroque/RM2C2_dev: Scoring and Summarizing of Cognitive task data from the Mobile Monitoring of Cognitive Change Project (M2C2).

#' RM2C2dev
#' @name write_file_variety
#' @export
#' @import tidyverse
write_file_variety <- function(data, filename) {
  if(filename != "" | !is.na(filename) | !is.null(filename)) {
    write_csv(data, filename)
    data_to_json(data, filename = filename)
  } else {
    stop("`filename` invalid. Please try again.")
  }
}