diff --git a/NAMESPACE b/NAMESPACE index 694c860..c9b5807 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -19,6 +19,7 @@ export(qd_pci1) export(qd_pci2) export(qd_pci2_D) export(rename_ct_files) +export(shape_to_geojson) export(sunsetter) export(sunsetter2) importClassesFrom(sp,CRS) diff --git a/man/CRS_extracter.Rd b/man/CRS_extracter.Rd index e745f2d..20cae83 100644 --- a/man/CRS_extracter.Rd +++ b/man/CRS_extracter.Rd @@ -50,7 +50,8 @@ leaflet() \%>\% Other spatial: \code{\link{apply_grtsdb}()}, \code{\link{calculate_polygon_centroid}()}, -\code{\link{collect_osm_features}()} +\code{\link{collect_osm_features}()}, +\code{\link{shape_to_geojson}()} } \author{ Sander Devisscher diff --git a/man/apply_grtsdb.Rd b/man/apply_grtsdb.Rd index f33f83a..31fe582 100644 --- a/man/apply_grtsdb.Rd +++ b/man/apply_grtsdb.Rd @@ -70,7 +70,8 @@ sample <- apply_grtsdb(perimeter, Other spatial: \code{\link{CRS_extracter}()}, \code{\link{calculate_polygon_centroid}()}, -\code{\link{collect_osm_features}()} +\code{\link{collect_osm_features}()}, +\code{\link{shape_to_geojson}()} } \author{ Sander Devisscher diff --git a/man/calculate_polygon_centroid.Rd b/man/calculate_polygon_centroid.Rd index c31c422..37bbe69 100644 --- a/man/calculate_polygon_centroid.Rd +++ b/man/calculate_polygon_centroid.Rd @@ -63,7 +63,8 @@ leaflet() \%>\% Other spatial: \code{\link{CRS_extracter}()}, \code{\link{apply_grtsdb}()}, -\code{\link{collect_osm_features}()} +\code{\link{collect_osm_features}()}, +\code{\link{shape_to_geojson}()} } \author{ Sander Devisscher diff --git a/man/collect_osm_features.Rd b/man/collect_osm_features.Rd index 67d1487..c245438 100644 --- a/man/collect_osm_features.Rd +++ b/man/collect_osm_features.Rd @@ -103,7 +103,8 @@ p1 + geom_sf(data = osm$osm_lines, aes(col = line_element)) + Other spatial: \code{\link{CRS_extracter}()}, \code{\link{apply_grtsdb}()}, -\code{\link{calculate_polygon_centroid}()} +\code{\link{calculate_polygon_centroid}()}, +\code{\link{shape_to_geojson}()} } \author{ Martijn Bollen diff --git a/man/qd_pci2.Rd b/man/qd_pci2.Rd index 4ad470f..9ace572 100644 --- a/man/qd_pci2.Rd +++ b/man/qd_pci2.Rd @@ -48,7 +48,7 @@ qd_pci2(Zv, scale_values = -2:2, x_is_table = FALSE, m = 2, p = 1) # 0 } } \seealso{ -Other plotting: +Other plotting: \code{\link{qd_pci1}()}, \code{\link{qd_pci2_D}()} } diff --git a/man/shape_to_geojson.Rd b/man/shape_to_geojson.Rd new file mode 100644 index 0000000..66e8271 --- /dev/null +++ b/man/shape_to_geojson.Rd @@ -0,0 +1,64 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/shape_to_geojson.R +\name{shape_to_geojson} +\alias{shape_to_geojson} +\title{Convert shapefiles to geojson +Deze functie zet alle shapes in een specifieke map, één bestand of een lijst van bestanden +van .shp om naar .geojson. +Daarnaast wordt de projectie getransformeerd naar wgs84 of een andere projectie.} +\usage{ +shape_to_geojson(input, output, output_crs = 4326, overwrite = "ask") +} +\arguments{ +\item{input}{een character string, een map, een bestand of een lijst van bestanden} + +\item{output}{een character string, de map waar de geojson bestanden worden +opgeslagen, default is de input map} + +\item{output_crs}{een integer, de projectie van de output, default is wgs84} + +\item{overwrite}{een boolean of character string, Vraag of de bestanden mogen +overschreven worden, default is "ask"} +} +\description{ +Convert shapefiles to geojson +Deze functie zet alle shapes in een specifieke map, één bestand of een lijst van bestanden +van .shp om naar .geojson. +Daarnaast wordt de projectie getransformeerd naar wgs84 of een andere projectie. +} +\details{ +De functie checkt of de input een map is, als dit het geval is worden alle .shp +bestanden in de map omgezet naar .geojson. Als de input geen map is, wordt de +input als bestand beschouwd en wordt deze omgezet naar .geojson. + +Als de output niet is gespecificeerd, wordt de output gelijkgesteld aan de input. +} +\examples{ +\dontrun{ +# Voorbeeld van hoe de shape_to_geojson functie te gebruiken +# Sla boswachterijen_2024 op als .shp bestand in een tempdir +boswachterijen_2024 <- fistools::boswachterijen$boswachterijen_2024 +tempdir <- tempdir() +sf::st_write(boswachterijen_2024, paste0(tempdir, "/boswachterijen_2024.shp")) + +# controleer of de shp goed opgeslagen werd +browseURL(tempdir) + +# Zet de shp om naar geojson +shape_to_geojson(input = tempdir) + +# Read and plot the geojson +boswachterijen_2024_geojson <- sf::st_read(paste0(tempdir, "/boswachterijen_2024.geojson")) +leaflet::leaflet() \%>\% + leaflet::addTiles() \%>\% + leaflet::addPolygons(data = boswachterijen_2024_geojson) + } +} +\seealso{ +Other spatial: +\code{\link{CRS_extracter}()}, +\code{\link{apply_grtsdb}()}, +\code{\link{calculate_polygon_centroid}()}, +\code{\link{collect_osm_features}()} +} +\concept{spatial}