Documents

DESCRIPTION

@@ -47,6 +47,7 @@ Suggests:
     osmextract,
     stplanr,
     dplyr,
-    rgdal
+    rgdal,
+    tmap
 VignetteBuilder: knitr
 Config/testthat/edition: 3

R/data.R

@@ -9,7 +9,7 @@
 #' @examples
 #' names(dem_lisbon_raster)
 #' raster::plot(dem_lisbon_raster)
-#' plot(lisbon_road_segments["Avg_Slope"], add = TRUE)
+#' plot(lisbon_road_network["Avg_Slope"], add = TRUE)
 "dem_lisbon_raster"
 
 #' Road segments in Lisbon
@@ -21,9 +21,9 @@
 #' @source Produced by ESRI's
 #'  [3D Analyst extension](https://pro.arcgis.com/en/pro-app/help/analysis/)
 #' @examples
-#' names(lisbon_road_segments)
-#' plot(lisbon_road_segments["Avg_Slope"])
-"lisbon_road_segments"
+#' names(lisbon_road_network)
+#' plot(lisbon_road_network["Avg_Slope"])
+"lisbon_road_network"
 
 #' A road segment in Lisbon, Portugal
 #'

R/slopes.R

@@ -148,7 +148,7 @@ slope_matrices = function(m_xyz_split, fun = slope_matrix_weighted, ...) {
 #' @importFrom methods is
 #' @export
 #' @examples
-#' routes = lisbon_road_segments[1:3, ]
+#' routes = lisbon_road_network[1:3, ]
 #' dem = dem_lisbon_raster
 #' (s = slope_raster(routes, dem))
 #' cor(routes$Avg_Slope, s)
@@ -209,7 +209,7 @@ slope_xyz = function(route_xyz, fun = slope_matrix_weighted, lonlat = TRUE) {
 #' @inheritParams slope_matrix
 #' @export
 #' @examples
-#' m = sf::st_coordinates(lisbon_road_segments[1, ])
+#' m = sf::st_coordinates(lisbon_road_network[1, ])
 #' dem = dem_lisbon_raster
 #' elevation_extract(m, dem)
 #' elevation_extract(m, dem, method = "simple")
@@ -245,7 +245,7 @@ elevation_extract = function(m,
 #' @export
 #' @examples
 #' library(sf)
-#' routes = lisbon_road_segments[204, ]
+#' routes = lisbon_road_network[204, ]
 #' dem = dem_lisbon_raster
 #' (r3d = elevation_add(routes, dem))
 #' sf::st_z_range(routes)