R/connection.R

In pedrocostaferreira/BETS: Brazilian Economic Time Series

#' @title Connection with the server
#' @description  Make the connection with the server
#' @import DBI RMySQL 
#' @importFrom utils  install.packages remove.packages
#' 

connection = function(){
    tryCatch({
        conn = dbConnect(MySQL(),db="bets",user="BETS_user",password="123456",host="200.20.164.178",port=3306)
        return(conn)
    },
    error = function(e){
        message("Sorry, but it was not possible to connect to the server.")
        x <- readline("You want to install a development version of RMySQL and DBI package packages?\n(This may solve the connection problem)[Y/n]")
        if(x %in% c("y","Y","yes","Yes","YES")){
            tryCatch({
                if(requireNamespace("devtools")){
                
                    devtools::install_github("rstats-db/DBI")
                    devtools::install_github("rstats-db/RMySQL")
                    conn = dbConnect(MySQL(),db="bets",user="BETS_user",password="123456",host="200.20.164.178",port=3306)
                    return(conn)
                }else{
                    install.packages("devtools")
                    devtools::install_github("rstats-db/DBI")
                    devtools::install_github("rstats-db/RMySQL")
                    conn = dbConnect(MySQL(),db="bets",user="BETS_user",password="123456",host="200.20.164.178",port=3306)
                    return(conn)
                }
            },
            error = function(e){
                x<- readline("Install a previously version of DBI and RMySQL packages?")
                if(x %in% c("y","Y","yes","Yes","YES")){
                    remove.packages(c("RMySQL","DBI"))
                    install.packages("devtools")
                    devtools::install_version("DBI", version = "0.5", repos = "http://cran.us.r-project.org")
                    devtools::install_version("RMySQL", version = "0.10.9", repos = "http://cran.us.r-project.org") 
                    conn = dbConnect(MySQL(),db="bets",user="BETS_user",password="123456",host="200.20.164.178",port=3306)
                    return(conn)
                }else{
                    stop("Connection fail!")
                }
            })
        }else{
                stop("Connetcion fail!")
            } 
       })
}