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")

In this part: 

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 (.Platform$OS.type == "unix") { checks if the operating system type is unix.
if (package == "DBI") { checks if the package argument