fix: check of existence of objects in R setup list

This commit is contained in:
Max Luebke 2023-01-24 16:46:18 +01:00
parent 247e5ffe73
commit 535ed489b3

View File

@ -47,12 +47,12 @@ master_init <- function(setup) {
setup$timesteps <- setup$timesteps
setup$simulation_time <- 0
if (!(exists("setup$store_result"))) {
if (is.null(setup[["store_result"]])) {
setup$store_result <- TRUE
}
if (setup$store_result) {
if (!(exists("setup$out_save"))) {
if (is.null(setup[["out_save"]])) {
setup$out_save <- seq(1, setup$iterations)
}
}