diff --git a/R/export_prj.R b/R/export_prj.R index 67feb62451104648b1cbc3d1ef557973cd99a3b0..69ef6324cf48dc7f0de4f3b5ec4e043defd772ff 100644 --- a/R/export_prj.R +++ b/R/export_prj.R @@ -12,7 +12,7 @@ export_prj <- function(ogs6_obj) { if(is.null(ogs6_obj$geometry)) { meshes_node <- to_node(ogs6_obj$meshes, "meshes") }else{ - meshes_node <- to_node(ogs6_obj$meshes[[1]]$mesh_ref, "mesh") + meshes_node <- to_node(ogs6_obj$meshes[[1]]$mesh_filename, "mesh") } # First instantiate our big wrapper list