R/data_to_json.R

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

#' RM2C2dev
#' @name data_to_json
#' @export
#' @import jsonlite
data_to_json <- function(data, filename="") {
  x <- toJSON(unname(split(data, 1:nrow(data))))

  if(filename != "" & !is.na(filename) & !is.null(filename)) {
    print(paste0("Writing json file: ", filename))
    write(x, filename)
  }
  
  return(x)
}