Fix isAndromedaTable() when table belongs to descendant of Andromda. …

…Fixes #64

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: Andromeda
 Type: Package
 Title: Asynchronous Disk-Based Representation of Massive Data
-Version: 0.6.6
+Version: 0.6.7
 Date: 2024-03-21
 Authors@R: c(
   person("Adam", "Black", , "[email protected]", role = c("aut")),

NEWS.md

@@ -1,3 +1,11 @@
+Andromeda 0.6.7
+===============
+
+Bugfixes
+
+- Fix `isAndromedaTable()` when table belongs to descendant of Andromda.
+
+
 Andromeda 0.6.6
 ===============
 

R/Object.R

@@ -466,10 +466,5 @@ checkIfValid <- function(x) {
 #' close(andr)
 #' }
 isAndromedaTable <- function(tbl) {
-  return(
-    inherits(tbl, "FileSystemDataset") ||
-    inherits(tbl, "arrow_dplyr_query") ||
-    inherits(tbl, "tbl_Andromeda") ||
-    inherits(tbl, "tbl_SQLiteConnection")
-  )
+  return(inherits(tbl, "tbl") && inherits(dbplyr::remote_con(tbl), "Andromeda"))
 }

tests/testthat/test-object.R

@@ -187,12 +187,6 @@ test_that("Get/set Andromeda table/column names works.", {
 })
 
 test_that("isAndromedaTable sqlite version", {
-  con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
-  DBI::dbWriteTable(con, "cars", cars)
-  db <- dplyr::tbl(con, "cars")
-  expect_true(isAndromedaTable(db))
-  expect_true(isAndromedaTable(dplyr::mutate(db, a = 1)))
-
   a <- andromeda(cars = cars)
   class(a$cars)
   expect_true(isAndromedaTable(a$cars))