supress warnings for ResultModelManafer:: uploadResults()

darwin-eu-dev · Oct 23, 2024 · e6e5ea4 · e6e5ea4
1 parent 9d703f7
commit e6e5ea4
Showing 1 changed file with 16 additions and 13 deletions.
diff --git a/R/ResultsDataModel.R b/R/ResultsDataModel.R
@@ -141,19 +141,22 @@ uploadResults <- function(connectionDetails,
 
   ParallelLogger::logInfo("Unzipping ", zipFileName)
   zip::unzip(zipFileName, exdir = unzipFolder)
-
-  ResultModelManager::uploadResults(
-    connectionDetails = connectionDetails,
-    schema = schema,
-    resultsFolder = unzipFolder,
-    tablePrefix = tablePrefix,
-    forceOverWriteOfSpecifications = forceOverWriteOfSpecifications,
-    purgeSiteDataBeforeUploading = purgeSiteDataBeforeUploading,
-    runCheckAndFixCommands = TRUE,
-    databaseIdentifierFile = "database.csv",
-    specifications = getResultsDataModelSpecifications(),
-    warnOnMissingTable = FALSE,
-    ...
+
+  # suppressing warning for reserved keywords in SQL
+  suppressWarnings(
+    ResultModelManager::uploadResults(
+      connectionDetails = connectionDetails,
+      schema = schema,
+      resultsFolder = unzipFolder,
+      tablePrefix = tablePrefix,
+      forceOverWriteOfSpecifications = forceOverWriteOfSpecifications,
+      purgeSiteDataBeforeUploading = purgeSiteDataBeforeUploading,
+      runCheckAndFixCommands = TRUE,
+      databaseIdentifierFile = "database.csv",
+      specifications = getResultsDataModelSpecifications(),
+      warnOnMissingTable = FALSE,
+      ...
+    )
   )
 }