Add documentation showing rnet_merge() working on projected data

ropensci · Oct 5, 2023 · 18c63b8 · 18c63b8
1 parent 1f31f69
commit 18c63b8
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/rnet_join.R b/R/rnet_join.R
@@ -204,6 +204,12 @@ line_cast <- function(x) {
 #' plot(rnet_merged["flow"], add = TRUE, lwd = 2)
 #'
 #' # # With a different CRS
+#' rnet_xp <- sf::st_transform(rnet_x, "EPSG:27700")
+#' rnet_yp <- sf::st_transform(rnet_y, "EPSG:27700")
+#' rnet_merged <- rnet_merge(rnet_xp[1], rnet_yp[c("flow", "quietness")],
+#'   dist = 9, segment_length = 20, funs = funs
+#' )
+#' plot(rnet_merged["flow"])
 #' # rnet_merged2 = rnet_merge(rnet_x[1], rnet_y[c("flow", "quietness")],
 #' #                          dist = 9, segment_length = 20, funs = funs,
 #' #                          crs = "EPSG:27700")