Error now shows if you don't have all the variables assigned

I really need to think of a better error to display
kylehamilton · Jul 23, 2017 · 14fe6a9 · 14fe6a9
1 parent a6af7d7
commit 14fe6a9
Show file tree

Hide file tree

Showing 6 changed files with 3 additions and 2 deletions.
diff --git a/MetaModel.jmo b/MetaModel.jmo
diff --git a/R/metacorr.b.R b/R/metacorr.b.R
@@ -38,9 +38,10 @@ MetaCorrClass <- R6::R6Class(
 
         ready <- TRUE
         if (is.null(self$options$rcor) || is.null(self$options$samplesize) || is.null(self$options$slab) == TRUE){
-        #if (is.null(self$options$rcor) == TRUE){
 
           ready <- FALSE
+        # I really need to think of a better error message this is a place holder until I figure something out
+          jmvcore::reject("Correlations, Sample Sizes, and Study Label fields must be populated to run analysis", code='')
         }
         if (ready == TRUE) {
 

diff --git a/build/R/MetaModel/DESCRIPTION b/build/R/MetaModel/DESCRIPTION
@@ -9,4 +9,4 @@ License: GPL-3
 Encoding: UTF-8
 LazyData: true
 Imports: jmvcore (>= 0.5.5), R6, metafor, gsl, MAc, ggplot2
-Built: R 3.3.1; ; 2017-07-23 22:49:45 UTC; windows
+Built: R 3.3.1; ; 2017-07-23 22:56:33 UTC; windows
diff --git a/build/R/MetaModel/Meta/package.rds b/build/R/MetaModel/Meta/package.rds
diff --git a/build/R/MetaModel/R/MetaModel.rdb b/build/R/MetaModel/R/MetaModel.rdb
diff --git a/build/R/MetaModel/R/MetaModel.rdx b/build/R/MetaModel/R/MetaModel.rdx