Fix dim check

andrjohns · andrjohns · commit 50616d0d0709 · 2023-09-25T18:37:54.000+03:00
diff --git a/R/args.R b/R/args.R
@@ -829,7 +829,7 @@ process_init_list <- function(init, num_procs, model_variables = NULL) {
       for (par_name in parameter_names[is_parameter_value_supplied]) {
         # Make sure that initial values for single-element containers don't get
         # unboxed when writing to JSON
-        if (model_variables$parameters[[par_name]]$dimensions == 1 && is.null(attr(init[[i]][[par_name]], "dim"))) {
+        if (model_variables$parameters[[par_name]]$dimensions == 1 && length(init[[i]][[par_name]]) == 1) {
           init[[i]][[par_name]] <- array(init[[i]][[par_name]], dim = 1)
         }
       }

Original file line number	Diff line number	Diff line change
`@@ -829,7 +829,7 @@ process_init_list <- function(init, num_procs, model_variables = NULL) {`
`829`	`829`	`for (par_name in parameter_names[is_parameter_value_supplied]) {`
`830`	`830`	`# Make sure that initial values for single-element containers don't get`
`831`	`831`	`# unboxed when writing to JSON`
`832`		`- if (model_variables$parameters[[par_name]]$dimensions == 1 && is.null(attr(init[[i]][[par_name]], "dim"))) {`
	`832`	`+ if (model_variables$parameters[[par_name]]$dimensions == 1 && length(init[[i]][[par_name]]) == 1) {`
`833`	`833`	`init[[i]][[par_name]] <- array(init[[i]][[par_name]], dim = 1)`
`834`	`834`	`}`
`835`	`835`	`}`