R/format_for_csv.R

In LilyFG/OWL: This package contains functions needed to get the OWL data

#' format_for_csv flattens any lists and reformats strings so Excel doesn't read them as dates
#'
#' @param raw.data is a data frame of raw data for one task
#'
#' @return a data frame ready to be output as a csv file
#'
#' @export
#'
# this is done on the assumption that we will deal with these list variables at a later stage
format_for_csv <- function(raw.data){
  flat <- lapply(raw.data, function(x){
    if(is.list(x)){
      x <- as.character(x)
    } else x
  })

  # I've also reformatted character variables in a weird way so that Excel stops reading them as dates
  formatted <- lapply(flat, function(x){
    if(is.character(x)) {
      x <- paste("=", '"', x, '"', sep = "")
    }else x
  })

  as.data.frame(formatted, stringsAsFactors = F)
}