From 25dafcffce03e0c1d57c720aeca3c732ce3d4e3c Mon Sep 17 00:00:00 2001
From: Jamie Gilbert <JGilber2@its.jnj.com>
Date: Fri, 22 Mar 2024 11:57:06 -0700
Subject: [PATCH] Fix for migration table check in packages with prefix

---
 R/DataMigrationManager.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/DataMigrationManager.R b/R/DataMigrationManager.R
index 0aa2e46..c585fe8 100644
--- a/R/DataMigrationManager.R
+++ b/R/DataMigrationManager.R
@@ -113,7 +113,7 @@ DataMigrationManager <- R6::R6Class(
     #' @return boolean
     migrationTableExists = function() {
       tables <- DatabaseConnector::getTableNames(private$connectionHandler$getConnection(), self$databaseSchema)
-      return(tolower(paste0(self$tablePrefix, "migration")) %in% tables)
+      return(tolower(paste0(self$tablePrefix, self$packageTablePrefix, "migration")) %in% tables)
     },
 
     #' Get path of migrations
@@ -307,7 +307,7 @@ DataMigrationManager <- R6::R6Class(
       private$logInfo("Creating migrations table")
       sql <- "
       --HINT DISTRIBUTE ON RANDOM
-      CREATE TABLE @database_schema.@table_prefix@migration (
+      CREATE TABLE IF NOT EXISTS @database_schema.@table_prefix@migration (
           migration_file VARCHAR PRIMARY KEY,
           migration_order INT NOT NULL unique
       );"