From 6c69811373439a03898e3db7742f22d518f30972 Mon Sep 17 00:00:00 2001
From: Bill O'Brien <willjobrien@gmail.com>
Date: Fri, 6 Dec 2024 17:58:17 -0500
Subject: [PATCH] export isAndromedaTable

---
 R/Object.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/Object.R b/R/Object.R
index 012a5c9..74400cb 100644
--- 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"))
 }