R/connect_bra08.R

In mvbloois/faiR: Collection Of Farminform Functions

#' Connect to Bra08 SQL-Server
#'
#' Connect to one of the databases on the bra08 server.
#'
#' @param db character variable
#'
#' @return database connection
#'
#' @examples
#' \dontrun{
#' con <- connect_bra08(db = "Rapportage")
#' DBI::dbListTables(conn =con)
#' }
#' @export
connect_bra08 <- function(db = "Rapportage"){
  stopifnot(having_network())

  con <- DBI::dbConnect(odbc::odbc(), Driver = "SQL Server",
                        Server = "Bra08\\FI",
                        Database = db,
                        trusted_connection = "yes")
}