export isAndromedaTable

vinci-ohdsi · Dec 6, 2024 · 6c69811 · 6c69811
1 parent b646d62
commit 6c69811
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/Object.R b/R/Object.R
@@ -454,8 +454,7 @@ isAndromeda <- function(x) {
 #' @export
 isValidAndromeda <- function(x) {
   if(!isAndromeda(x)) rlang::abort(paste(deparse(substitute(x)), "is not an Andromeda object."))
-  #return(duckdb::dbIsValid(x))
-  return(TRUE)
+  return(duckdb::dbIsValid(x))
 }
 
 #' @param con    An [`Andromeda`] object.
@@ -491,6 +490,7 @@ if (!isValidAndromeda(x))
 #' isAndromedaTable(andr$cars)
 #' close(andr)
 #' }
+#' @export
 isAndromedaTable <- function(tbl) {
   return(inherits(tbl, "tbl") && inherits(dbplyr::remote_con(tbl), "Andromeda"))
 }