added extra constraint to check_access

afsc-gap-products · Mar 1, 2024 · 9f0d1f6 · 9f0d1f6
1 parent b8f83e1
commit 9f0d1f6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/get_connected.R b/R/get_connected.R
@@ -36,7 +36,7 @@ get_connected <- function(db = "AFSC", check_access = TRUE) {
   if (class(channel) == "RODBC") {
     cat("Successfully connected to Oracle.\n")
 
-    if (check_access) {
+    if (check_access & db == "AFSC") {
       cat("Checking that you have access to the tables queried in the gapindex package.\n")
       tables_to_check <- 
         data.frame(table_name = c(