Some more code to clean up garbage on testing servers

OHDSI · Sep 19, 2023 · 66c1132 · 66c1132
1 parent 7f49afe
commit 66c1132
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/extras/PackageMaintenance.R b/extras/PackageMaintenance.R
@@ -81,6 +81,13 @@ databaseSchema <- Sys.getenv("CDM5_ORACLE_OHDSI_SCHEMA")
 tables <- getTableNames(connection, databaseSchema, cast = "none")
 sql <- paste(sprintf("DROP TABLE %s.%s;", databaseSchema, tables), collapse= "\n")
 executeSql(connection, sql)
+
+databaseSchema <- Sys.getenv("CDM5_ORACLE_CDM54_SCHEMA")
+tables <- getTableNames(connection, databaseSchema, cast = "none")
+tables <- tables[grepl("", tables)]
+sql <- paste(sprintf("DROP TABLE %s.%s;", databaseSchema, tables), collapse= "\n")
+executeSql(connection, sql)
+
 disconnect(connection)
 
 # Postgres