diff --git a/R/sim_utils.R b/R/sim_utils.R index 6e7e56a170368fbff610da3f09812ac6e2cf15b0..2e3171933a10c815c90985a0d5fa488b18500caa 100644 --- a/R/sim_utils.R +++ b/R/sim_utils.R @@ -133,6 +133,9 @@ ogs6_call_ogs6 <- function(ogs6_obj, if(missing(ogs6_bin_path)){ ogs6_bin_path <- unlist(options("r2ogs6.default_ogs6_bin_path")) } + else if(is.null(ogs6_bin_path)){ + ogs6_bin_path <- unlist(options("r2ogs6.default_ogs6_bin_path")) + } assertthat::assert_that(assertthat::is.string(ogs6_bin_path)) assertthat::assert_that(assertthat::is.flag(verbose))