From 11c86763c3137d0da84db31530c22f5659ae3058 Mon Sep 17 00:00:00 2001
From: Robert Rostu Studtrucker <rs@leibniz-psychology.org>
Date: Wed, 4 Sep 2024 11:14:20 +0200
Subject: [PATCH] further bug fixing on rmamvmodel

---
 R/rmaMVModel.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/rmaMVModel.R b/R/rmaMVModel.R
index 4cf7696..73173a9 100644
--- a/R/rmaMVModel.R
+++ b/R/rmaMVModel.R
@@ -17,12 +17,16 @@
 #' @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")
@@ -30,7 +34,7 @@ rmaMVModel <- function(yi,vi,measure,d,pred1=NULL,pred2=NULL,nesting=NULL) {
   #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))