Add example showing line_bearing works for routes

ropensci · Oct 5, 2023 · dee8b5b · dee8b5b
1 parent 6622d72
commit dee8b5b
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 2 deletions.
diff --git a/R/linefuns.R b/R/linefuns.R
@@ -62,7 +62,10 @@ is_linepoint <- function(l) {
 #' l <- flowlines_sf[1:5, ]
 #' bearings_sf_1_9 <- line_bearing(l)
 #' bearings_sf_1_9 # lines of 0 length have NaN bearing
-#' line_bearing(l, bidirectional = TRUE)
+#' b <- line_bearing(l, bidirectional = TRUE)
+#' r <- routes_fast_sf[1:5, ]
+#' b2 <- line_bearing(r, bidirectional = TRUE)
+#' plot(b, b2)
 line_bearing <- function(l, bidirectional = FALSE) {
   # Convert to lon/lat data if not already
   is_longlat <- sf::st_is_longlat(l)

diff --git a/man/line_bearing.Rd b/man/line_bearing.Rd
diff --git a/man/rnet_merge.Rd b/man/rnet_merge.Rd