disable_connection_pane.R

# If this were a working example then the function would take inputs, probably as (...) this was just hacked together as a connection to a particular datababase.

disable_connection_pane <- function(){
  
  saved_option = getOption("connectionObserver")
  
  options(connectionObserver = NULL)

  con <- DBI::dbConnect(odbc::odbc(),
                        dsn = "dsn")
  
  options("connectionObserver" = saved_option)
  
  con

}


con <- disable_connection_pane()