Add fix for false warning for 'scopy' when 'scopy' is not in use

hrue · Dec 20, 2023 · 0a85b8c · 0a85b8c
1 parent a69a021
commit 0a85b8c
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/rinla/R/f.R b/rinla/R/f.R
@@ -447,8 +447,13 @@
     control.group <- ctrl_object(control.group, "group")
     cont.group <- ctrl_update(control.group)
 
-    control.scopy <- ctrl_object(control.scopy, "scopy")
-    cont.scopy <- ctrl_update(control.scopy)
+    ## otherwise, the 'experimental' warning is triggered without using 'scopy'
+    if (!is.null(scopy)) {
+        control.scopy <- ctrl_object(control.scopy, "scopy")
+        cont.scopy <- ctrl_update(control.scopy)
+    } else {
+        cont.scopy <- NULL
+    }
 
 
     ## CHECK ARGUMENTS.