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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.