From aa93d2c158f9af28afa43176b4588ee45e337dcc Mon Sep 17 00:00:00 2001
From: Johannes Boog <johannesboog@yahoo.de>
Date: Mon, 26 Jul 2021 13:15:06 +0200
Subject: [PATCH] [bugfix] add check if ogs_bin_path is null
---
R/sim_utils.R | 3 +++
1 file changed, 3 insertions(+)
diff --git a/R/sim_utils.R b/R/sim_utils.R
index 6e7e56a..2e31719 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))
--
GitLab