Fixed R serialization bug

andrewherren · andrewherren · commit 998ebc3e13b4 · 2025-10-23T10:37:36.000-05:00
diff --git a/R/bcf.R b/R/bcf.R
@@ -3402,7 +3402,7 @@ saveBCFModelToJson <- function(object) {
       object$rfx_unique_group_ids
     )
   }
-  jsonobj$add_boolean(
+  jsonobj$add_string(
     "rfx_model_spec",
     object$model_params$rfx_model_spec
   )

Original file line number	Diff line number	Diff line change
`@@ -3402,7 +3402,7 @@ saveBCFModelToJson <- function(object) {`
`3402`	`3402`	`object$rfx_unique_group_ids`
`3403`	`3403`	`)`
`3404`	`3404`	`}`
`3405`		`- jsonobj$add_boolean(`
	`3405`	`+ jsonobj$add_string(`
`3406`	`3406`	`"rfx_model_spec",`
`3407`	`3407`	`object$model_params$rfx_model_spec`
`3408`	`3408`	`)`