Added modb_use to R and the c handler + moved the connection referencing to a helpers file

R/Manage.R

@@ -223,4 +223,11 @@ modb_destroy <- function(modb_name, ...) {
   conn_ref <- modb_conn_ref(args = list(...))
   res <- .Call(c_modb_destroy, conn_ref, modb_name)
   return(res)
+}
+
+#' @export
+modb_use <- function(modb_name, override = FALSE, ...) {
+  conn_ref <- modb_conn_ref(args = list(...))
+  res <- .Call(c_modb_use, conn_ref, modb_name, as.logical(override))
+  return(res)
 }