From be1e345b4874e2575ee879f827bc19a0f553a6d2 Mon Sep 17 00:00:00 2001
From: aheinri5 <Anna@netzkritzler.de>
Date: Thu, 7 Jan 2021 18:01:24 +0100
Subject: [PATCH] [base] Added default onLoad function
---
R/zzz.R | 23 +++++++++++++++++++++++
1 file changed, 23 insertions(+)
create mode 100644 R/zzz.R
diff --git a/R/zzz.R b/R/zzz.R
new file mode 100644
index 0000000..0ae89a4
--- /dev/null
+++ b/R/zzz.R
@@ -0,0 +1,23 @@
+.onLoad <- function(libname, pkgname){
+
+ op <- options()
+ op.r2ogs6 <- list(
+ # Default paths
+ r2ogs6.default_sim_path = "D:/OGS_sims/",
+ r2ogs6.default_script_path = "D:/OGS_scripts/",
+ r2ogs6.default_benchmark_path =
+ "D:/Programme/OpenGeoSys/ogs-master-Tests-Data/Tests/Data/",
+ r2ogs6.default_ogs_bin_path =
+ paste0("D:/Programme/OpenGeoSys/",
+ "ogs-6.3.2-Windows-10.0.14393-x64-python-3.7.2-de-utils",
+ "/bin/")
+
+ # External file reference tags
+ )
+ toset <- !(names(op.r2ogs6) %in% names(op))
+ if (any(toset)) options(op.r2ogs6[toset])
+
+
+
+ invisible()
+}
\ No newline at end of file
--
GitLab