add fitted RoBMA model for data library (#217)

DESCRIPTION

@@ -32,3 +32,6 @@ Imports:
 Remotes:
   jasp-stats/jaspBase,
   jasp-stats/jaspGraphs
+Depends: 
+    R (>= 2.10)
+LazyData: true

R/data.R

@@ -0,0 +1,11 @@
+#' @title Example RoBMA fit to Lui 2015 data
+#'
+#' @description RoBMA fit (with removed posterior samples) for
+#' the example analysis on the Lui 2015 data example from AMPPS
+#' (vignette at https://cran.r-project.org/web/packages/RoBMA/vignettes/Tutorial.html)
+#'
+#'
+#' @format An RDS file
+#'
+#' @return An object of class RoBMA.
+"exampleRobmaLui2015"

R/robustbayesianmetaanalysis.R

@@ -732,6 +732,14 @@ RobustBayesianMetaAnalysis <- function(jaspResults, dataset, options, state = NU
 
   return()
 }
+.robmaReadFittedModel          <- function(options) {
+  if (tolower(gsub(" ", "", options[["pathToFittedModel"]])) == "examplerobmalui2015") {
+    data("exampleRobmaLui2015")
+    return(exampleRobmaLui2015)
+  } else {
+    try(readRDS(file = options[["pathToFittedModel"]]))
+  }
+}
 .robmaFitModel                 <- function(jaspResults, dataset, options) {
 
   if (is.null(jaspResults[["model"]])) {
@@ -747,7 +755,7 @@ RobustBayesianMetaAnalysis <- function(jaspResults, dataset, options, state = NU
 
   if (options[["inputType"]] == "fittedModel") {
 
-    fit <- try(readRDS(file = options[["pathToFittedModel"]]))
+    fit <- .robmaReadFittedModel(options)
 
     if (jaspBase::isTryError(fit) && grepl("cannot open the connection", fit))
       .quitAnalysis(gettext("The specified path does not lead to an existing file."))
@@ -1793,3 +1801,4 @@ RobustBayesianMetaAnalysis <- function(jaspResults, dataset, options, state = NU
   names(priors)            <- priorNames
   return(priors)
 }
+