R/connect_fiaprod.R

In mvbloois/faiR: Collection Of Farminform Functions

#' Connect to FIAPROD SQL-Server
#'
#' This function is replaced by connect_usoft()
#'
#' DBI connection met USoft Fiaprod database
#'
#' @param db character variable
#'
#' @return database connection
#'
#'
#' @export
connect_fiaprod <- function(db = "FIAPROD"){
  usethis::ui_warn("Replace this function with connect_usoft(db = \"FIAPROD\")")
  stopifnot(having_network())

  con <- DBI::dbConnect(odbc::odbc(), Driver = "SQL Server",
                        Server = "172.31.65.11",
                        Database = db,
                        UID = keyring::key_get("FIAUSR"),
                        PWD = keyring::key_get("FIAPWD"),
                        Port = 1433)

}