read also upper case achilles tables (#407)

* read also upper case achilles tables * typo
darwin-eu · Feb 29, 2024 · 1ef6365 · 1ef6365
1 parent caacf28
commit 1ef6365
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/cdm.R b/R/cdm.R
@@ -86,7 +86,7 @@ cdm_from_con <- function(con,
   if (!is.null(achilles_schema)) {
     achillesReqTables <- omopgenerics::achillesTables()
     acTables <- listTables(con, schema = achilles_schema)
-    achilles_tables <- achillesReqTables[which(achillesReqTables %in% tolower(acTables))]
+    achilles_tables <- acTables[which(tolower(acTables) %in% achillesReqTables)]
     if (length(achilles_tables) != 3) {
       cli::cli_abort("Achilles tables not found in {achilles_schema}!")
     }