From 3a4f415d0c4927dcb0e2b4b73f442a29bbee379f Mon Sep 17 00:00:00 2001
From: aheinri5 <Anna@netzkritzler.de>
Date: Fri, 18 Dec 2020 22:47:13 +0100
Subject: [PATCH] [base] Changed read_in function to fit new vtu class
---
R/read_in_vtu.R | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/R/read_in_vtu.R b/R/read_in_vtu.R
index a21b03d..ef0a4f5 100644
--- a/R/read_in_vtu.R
+++ b/R/read_in_vtu.R
@@ -4,8 +4,9 @@
#'pick_vtu_file
-#'@description Lets the user pick a .vtu file and adds it to the specified OGS6 class object
-#'@param ogs6_obj A OGS6 class object
+#'@description Lets the user pick a .vtu file and adds it to the specified OGS6
+#' class object
+#'@param ogs6_obj OGS6: Simulation object
#'@export
pick_vtu_file <- function(ogs6_obj) {
@@ -14,13 +15,13 @@ pick_vtu_file <- function(ogs6_obj) {
file <- file.choose()
check_file_extension(file, "vtu")
- ogs6_obj$add_mesh(r2ogs6_mesh(basename(file)))
+ ogs6_obj$add_mesh(OGS6_mesh$new(file))
file.copy(file, ogs6_obj$sim_path)
}
#'read_in_vtu
#'@description Wrapper function to read in a whole .vtu file
-#'@param ogs6_obj A OGS6 class object
+#'@param ogs6_obj OGS6: Simulation object
#'@param vtu_path The path to the mesh file that should be read in
#'@export
read_in_vtu <- function(ogs6_obj, vtu_path) {
--
GitLab