export net_2_sfnet_undirected and update example

Author: agila5

NAMESPACE

@@ -17,6 +17,7 @@ S3method(oe_match_pattern,sfc)
 S3method(print,oe_key_values_list)
 export(clean_oneway)
 export(get_default_osmconf_ini)
+export(net_2_sfnet_undirected)
 export(oe_clean)
 export(oe_download)
 export(oe_download_directory)

R/get-network-graph.R

@@ -166,12 +166,30 @@ oe_get_sfnetwork = function(
 #' All other attributes are collapsed separated by a comma.
 #'
 #' @returns An `sfnetwork` object
+#' @export
 #'
 #' @examples
-#' \dontrun{
-#' net_sf <- oe_get_network(place = "ITS Leeds", mode = "driving",clean_output = TRUE)
+#' # Copy the ITS file to tempdir() to make sure that the examples do not
+#' # require internet connection. You can skip the next 4 lines (and start
+#' # directly with oe_get_keys) when running the examples locally.
+#' its_pbf = file.path(tempdir(), "test_its-example.osm.pbf")
+#' file.copy(
+#'   from = system.file("its-example.osm.pbf", package = "osmextract"),
+#'   to = its_pbf,
+#'   overwrite = TRUE
+#' )
+#'
+#' net_sf <- oe_get_network(
+#'   place = "ITS Leeds",
+#'   mode = "driving",
+#'   clean_output = TRUE,
+#'   download_directory = tempdir(),
+#'   quiet = TRUE
+#' )
 #'
-#' sfnet_undirected <- net_2_sfnet_undirected(net_sf)
+#' if (requireNamespace("sfnetworks", quietly = TRUE)) {
+#'   sfnet_undirected <- net_2_sfnet_undirected(net_sf)
+#'   plot(sfnet_undirected)
 #' }
 net_2_sfnet_undirected = function(net_sf, require_equal = TRUE) {
   if (!requireNamespace("sfnetworks", quietly = TRUE)) {