added validation functions to the end of cut_cross_sections(), might …

…be a temporary piece but for now it ensures only good data ever ever ever comes out, bumped version
lynker-spatial · Nov 22, 2024 · 54cb1b9 · 54cb1b9
1 parent bb0d60e
commit 54cb1b9
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: hydrofabric3D
 Title: hydrofabric3D
-Version: 0.1.78
+Version: 0.1.79
 Authors@R: c(person("Mike", "Johnson", role = c("aut"), email = "[email protected]"),
              person("Angus", "Watters",  role = c("aut", "cre"), email = "[email protected]"),
              person("Arash", "Modaresi",  role = "ctb"),

diff --git a/R/transects.R b/R/transects.R
@@ -1393,6 +1393,9 @@ cut_cross_sections <- function(
           )
       )
 
+    is_valid_transects                    <- hydrofabric3D::validate_transects(transects, crosswalk_id)
+    is_valid_transects_against_flowlines  <- hydrofabric3D::validate_transects_against_flowlines(transects, net, crosswalk_id)
+
     return(transects)
 
     })
-Original file line number
+Diff line change
@@ Expand Up / @@ -1393,6 +1393,9 @@ cut_cross_sections <- function( @@
               )
           )
+        is_valid_transects                    <- hydrofabric3D::validate_transects(transects, crosswalk_id)
+        is_valid_transects_against_flowlines  <- hydrofabric3D::validate_transects_against_flowlines(transects, net, crosswalk_id)
         return(transects)
         })
@@ Expand Down @@