From 8b5422379cd22dfdb123409e640226cef9faa023 Mon Sep 17 00:00:00 2001
From: schuemie <schuemie@gmail.com>
Date: Tue, 14 Nov 2023 09:32:30 +0100
Subject: [PATCH] Fixing 'oneSidedP not found' error

---
 R/RunAnalyses.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/RunAnalyses.R b/R/RunAnalyses.R
index 3242d451..3b9f90ff 100644
--- a/R/RunAnalyses.R
+++ b/R/RunAnalyses.R
@@ -1701,6 +1701,7 @@ summarizeResults <- function(referenceTable, outputFolder, mainFileName, interac
     ci <- confint(outcomeModel)
     if (is.null(coefficient)) {
       p <- NA
+      oneSidedP <- NA
     } else {
       p <- EmpiricalCalibration::computeTraditionalP(logRr = coefficient,
                                                      seLogRr = outcomeModel$outcomeModelTreatmentEstimate$seLogRr)