[base] Added delay_load flags for python libraries to zzz.R

R/zzz.R

+
+# global Python references (will be initialized in .onLoad)
+vtk <- NULL
+zlib <- NULL
+
+
 .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/")
+        r2ogs6.default_sim_path = "",
+        r2ogs6.default_script_path = "",
+        r2ogs6.default_benchmark_path = "",
+        r2ogs6.default_ogs_bin_path = "",
+        r2ogs6.max_lines_gml = 300,
 
         # External file reference tags
+
+        # Reticulate setting for reading in VTK
+        r2ogs6.use_python = ""
     )
+
     toset <- !(names(op.r2ogs6) %in% names(op))
     if (any(toset)) options(op.r2ogs6[toset])
 
+    # use superassignments to update global Python references
+    vtk <<- reticulate::import("vtk", delay_load = TRUE)
+    vtk_dsa <<- reticulate::import("vtk.numpy_interface.dataset_adapter",
+                                   delay_load = TRUE)
+    zlib <<- reticulate::import("zlib", delay_load = TRUE)
+
+    test_config <- TRUE
+
+    if (test_config) {
+        options(
+            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/",
+            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/"
+                ),
+            r2ogs6.use_python = "D:/Programme/anaconda3/envs/rtest/python.exe",
+            r2ogs6.max_lines_gml = 300
+        )
+
+        reticulate::use_virtualenv(unlist(options("r2ogs6.use_python")))
+    }
 
+    cat("Loaded package r2ogs6. Your options are set as follows:\n\n",
+        paste(
+            names(options()[grepl("r2ogs6.", names(options()), fixed = TRUE)]),
+            options()[grepl("r2ogs6.", names(options()), fixed = TRUE)],
+            sep = " = ",
+            collapse = "\n"),
+        "\n\nTo change them, type options(\"<option_name>\" = <option_value>).",
+        sep = "")
 
     invisible()
 }
\ No newline at end of file