[base] deleted old read_in_vtu code

R/read_in_vtu.R

@@ -14,10 +14,10 @@ read_in_vtu <- function(vtu_path) {
 
     root_node <- xml2::xml_find_first(xml_doc, xpath_expr)
 
-    vtu_obj <- node_to_r2ogs6_obj(xml_node = root_node,
-                                  xpath_expr = xpath_expr,
-                                  subclasses_names =
-                                      get_subclass_names("OGS6_vtu"))
-
+    vtu_obj <-
+        node_to_r2ogs6_class_object(xml_node = root_node,
+                                    xpath_expr = xpath_expr,
+                                    subclasses_names =
+                                        get_subclass_names("OGS6_vtu"))
     return(invisible(vtu_obj))
 }
\ No newline at end of file