R/class_conversion_sql.R

In gogonzo/oddsandsods: Miscellanous functions

classConversionSQL <- function(df_new){

  # define r<->mysql classes conversion
  rclasses   <- c("integer", "numeric",          "character",    "factor",      "logical",     "POSIXct",    "Date")
  fieldtypes <- c("int",     "decimal(10,5)",    "varchar(255)", "varchar(255)","decimal(10,5)","TIMESTAMP", "DATE")
  fieldtypes %<>% setNames(rclasses)

  # return mysql classes in named list
  field.types <- fieldtypes[lapply(df_new, class) %>% unlist]
  field.types %<>% setNames(colnames(df_new)) %>% as.list

  return(field.types)
}