R/sql_create_table.R

In elo2zero/oddsandsods: Miscellanous functions

#' @export
sqlCreateTable <- function(df,table_name, return_query = F){
  colnames(df) %<>% gsub("[[:punct:][:space:]]","_",x=.)
  query <- DBI::sqlCreateTable(DBI::ANSI(), table_name, df)[[1]] %>%
          gsub("\"","`",x=.)
  if(return_query) cat(query)
  dbSendQuery(con, query)
  dbClearResult(dbListResults(con)[[1]])
}