further bug fixing on rmamvmodel

R/rmaMVModel.R

@@ -17,20 +17,24 @@
 #' @return returns a fitted rma_mv model
 #' @author Robert Studtrucker
 #' @export
+#'
+
 rmaMVModel <- function(yi,vi,measure,d,pred1=NULL,pred2=NULL,nesting=NULL) {
 
   #load needed dependencies
   #library(metafor)
   #library(psych)
   #library(labelVector)
+  library(jsonlite)
+
   requireNamespace("metafor")
   requireNamespace("psych")
   #requireNamespace("labelVector")
 
   #load the in variable d defined dataset from the package
   dat <- d
   if(!is.null(nesting)){
-    nesting <- fromJSON(nesting)
+    nesting <- jsonlite::fromJSON(nesting)
   }
 
   heckParameter(dat,c(yi,vi))