[base] Changed read_in function to fit new vtu class

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) {