change pipe

Author: Sarah Endicott

R/getDistFromSource.R

@@ -63,9 +63,9 @@
 #'  library(terra)
 #'
 #' #make example roads from scratch
-#' rds <- data.frame(x = 1:1000/100, y = cos(1:1000/100)) %>%
-#'   st_as_sf(coords = c("x", "y")) %>%
-#'   st_union() %>%
+#' rds <- data.frame(x = 1:1000/100, y = cos(1:1000/100)) |>
+#'   st_as_sf(coords = c("x", "y")) |>
+#'   st_union() |>
 #'   st_cast("LINESTRING")
 #'
 #' rds_rast <- rasterize(vect(rds),
@@ -77,7 +77,7 @@
 #' terra::distance(rds_rast)
 #' 
 #' # or straight from the line
-#' terra::distance(rds_rast, terra::vect(rds %>% st_set_crs(st_crs(rds_rast))))
+#' terra::distance(rds_rast, terra::vect(rds |> st_set_crs(st_crs(rds_rast))))
 #'}
 #'@keywords internal