function (credential_name = "factfield_data", package = "dbx", config_path = "~/dbconfig.yml", default.file.windows = "~/.my.cnf", setUTF8 = TRUE) {config <- config::get(file = config_path, credential_name) if (.Platform$OS.type == "unix") { if (package == "DBI") {con <- DBI::dbConnect(RMySQL::MySQL(), host = config$host, user = config$user, password = config$password, port = config$port, dbname = config$dbname) }else if (package == "dbx") { con <- dbx::dbxConnect(adapter = "mysql", host = config$host, user = config$user, password = config$password, port = config$port, dbname = config$dbname) } } else {con <- DBI::dbConnect(RMySQL::MySQL(), dbname = credential_name, default.file = default.file.windows) if (setUTF8) {if (package == "DBI") {DBI::dbExecute(con, "set names utf8") } else if (package == "dbx") { dbx::dbxExecute(con, "set names utf8") }else {DBI::dbExecute(con, "set names utf8")} }return()}
def add(a, b): return a + b