fix(drop_diseasystore): Fix logic testing

ssi-dk · Feb 27, 2024 · d8dfacf · d8dfacf
1 parent e9e2307
commit d8dfacf
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/drop_diseasystore.R b/R/drop_diseasystore.R
@@ -105,8 +105,7 @@ drop_diseasystore <- function(pattern = NULL,
 
 
     # Check if logs is in the table, if yes, all tables must be deleted
-    if ("logs" %in% tables_to_delete$table &&
-        !identical(dplyr::select(tables_to_delete, !"db_table_id"), SCDB::get_tables(conn, ds_context))) {
+    if ("logs" %in% tables_to_delete$table && !identical(tables_to_delete, SCDB::get_tables(conn, ds_context))) {
       stop(glue::glue("'{schema}.logs' set to delete. Can only delete if entire feature store is dropped."))
     }