Fix my typo

OHDSI · Aug 21, 2024 · 74dbf2a · 74dbf2a
1 parent d5ec2c5
commit 74dbf2a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-EvidenceSynthesisModule.R b/tests/testthat/test-EvidenceSynthesisModule.R
@@ -91,7 +91,7 @@ createEsModuleSpecs <- function() {
 }
 
 test_that("Run module", {
-  analysisSpecification <- createEsModuleSpecs()
+  esAnalysisSpecifications <- createEsModuleSpecs()
   resultsExecutionSettings <- Strategus::createResultsExecutionSettings(
     resultsDatabaseSchema = "main",
     resultsFolder = testResultsFolder,
@@ -387,8 +387,8 @@ test_that("Don't error when no negative controls present", {
   # tempJobContext$moduleExecutionSettings$resultsConnectionDetails <- tempConnectionDetails
   # execute(tempJobContext)
 
-  analysisSettings <- createEsModuleSpecs()
-  analysisSpecification$moduleSpecifications[[1]] <- list(analysisSpecification$moduleSpecifications[[1]]$settings$evidenceSynthesisAnalysisList[[1]])
+  esAnalysisSpecifications <- createEsModuleSpecs()
+  esAnalysisSpecifications$moduleSpecifications[[1]]$settings$evidenceSynthesisAnalysisList <- list(esAnalysisSpecifications$moduleSpecifications[[1]]$settings$evidenceSynthesisAnalysisList[[1]])
   resultsExecutionSettings <- Strategus::createResultsExecutionSettings(
     resultsDatabaseSchema = "main",
     resultsFolder = testResultsFolder,