changes to rma model function since request isn't json anymore for so…

…me parameter
leibniz-psychology · Dec 3, 2024 · c66cd0f · c66cd0f
1 parent a3e66e8
commit c66cd0f
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/R/rmaMVModel.R b/R/rmaMVModel.R
@@ -37,14 +37,14 @@ rmaMVModel <- function(yi,vi,measure,d,pred1=NULL,pred2=NULL,nesting=NULL) {
   if(!is.null(nesting)){
     nesting <- jsonlite::fromJSON(nesting)
   }
-  if(!is.null(pred1)){
-    # Parse the JSON string into a list
-    pred1<-jsonlite::fromJSON(pred1)
-  }
-  if(!is.null(pred2)){
-    # Parse the JSON string into a list
-    pred2<-jsonlite::fromJSON(pred2)
-  }
+#  if(!is.null(pred1)){
+#    # Parse the JSON string into a list
+#    pred1<-jsonlite::fromJSON(pred1)
+#  }
+#  if(!is.null(pred2)){
+#    # Parse the JSON string into a list
+#    pred2<-jsonlite::fromJSON(pred2)
+#  }
 
   checkParameter(dat,c(yi,vi))