From c50f3b758ec0240de9f7a139bdcee2e8fd27cb12 Mon Sep 17 00:00:00 2001
From: Ruben Heinrich <ruben-heinrich@web.de>
Date: Mon, 25 Oct 2021 10:55:12 +0200
Subject: [PATCH] [bugfix] add_vtu() call now being constructed correctly
---
R/generate_benchmark_script.R | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/R/generate_benchmark_script.R b/R/generate_benchmark_script.R
index e553830..c267b5f 100644
--- a/R/generate_benchmark_script.R
+++ b/R/generate_benchmark_script.R
@@ -208,11 +208,12 @@ ogs6_generate_benchmark_script <- function(prj_path,
# Add .vtu references and optionally, OGS6_vtu objects
for(i in seq_len(length(ogs6_obj$meshes))){
- script_str <- paste0(script_str,
- "ogs6_obj$add_vtu(",
- construct_add_call(ogs6_obj$meshes[[i]]), ",\n",
- read_in_vtu,
- ")\n\n")
+ script_str <-
+ paste0(script_str,
+ "ogs6_obj$add_vtu(path = \"",
+ ogs6_obj$meshes[[i]]$path, "\",\n",
+ "axisym = ", ogs6_obj$meshes[[i]]$axially_symmetric, ",\n",
+ "read_in_vtu = ", read_in_vtu, ")\n\n")
}
# Add class objects (and such in wrapper lists)
--
GitLab