[bugfix] .gmls are exported correctly again

R/export_gml.R

@@ -31,6 +31,16 @@ export_gml <- function(gml, path) {
     })
   }
 
+  # The points need an extra 'id' attribute
+  for(i in seq_len(length(points_list))){
+    points_list[[i]] <- c(points_list[[i]], id = (i - 1))
+
+    # Remove empty names
+    if(points_list[[i]][["name"]] == ""){
+      points_list[[i]][["name"]] <- NULL
+    }
+  }
+
   xml2::xml_add_child(gml_xml,
                       xml2::as_xml_document(
                         to_node(points_list,

R/export_prj.R

@@ -13,7 +13,7 @@ export_prj <- function(ogs6_obj) {
         basenames <- lapply(ogs6_obj$meshes, function(x){basename(x)})
         meshes_node <- to_node(basenames, "meshes")
     }else{
-        meshes_node <- to_node(basename(ogs6_obj$meshes[[1]]))
+        meshes_node <- to_node(basename(ogs6_obj$meshes[[1]]), "mesh")
     }
 
     # First instantiate our big wrapper list

R/sim_utils.R

@@ -38,7 +38,7 @@ run_simulation <- function(ogs6_obj, write_logfile = TRUE) {
 
     # Copy all referenced .vtu files to ogs6_obj$sim_path
     for(i in seq_len(length(ogs6_obj$meshes))){
-        file.copy(ogs6_obj$meshes[[i]]$mesh_path, ogs6_obj$sim_path)
+        file.copy(ogs6_obj$meshes[[i]], ogs6_obj$sim_path)
     }
 
     # Construct the call

R/utils.R

@@ -260,6 +260,7 @@ get_obj_status <- function(flag, obj){
 is_optional_sim_component <- function(ogs6_parameter_name){
 
   optional_sim_components <- c("gml",
+                               "vtus",
                                "local_coordinate_system",
                                "curves",
                                "search_length_algorithm",