|
@@ -1,53 +0,0 @@
|
|
|
-% Generated by roxygen2: do not edit by hand
|
|
|
|
|
-% Please edit documentation in R/gpkg_sellest_alustame_gpkg_loomist.R
|
|
|
|
|
-\name{gpkg_sellest_alustame_gpkg_loomist}
|
|
|
|
|
-\alias{gpkg_sellest_alustame_gpkg_loomist}
|
|
|
|
|
-\title{Uue GPKG loomine}
|
|
|
|
|
-\usage{
|
|
|
|
|
-gpkg_sellest_alustame_gpkg_loomist(pk = NULL, obj = NULL, gpkg_home = "/tmp")
|
|
|
|
|
-}
|
|
|
|
|
-\arguments{
|
|
|
|
|
-\item{pk}{Piirkonna geomeetriline joon.}
|
|
|
|
|
-
|
|
|
|
|
-\item{obj}{str Objekti nimi. Edaspidi on oluline ainult see nimi. Piirkonna geomeetrilist joont ei ole vaja lisada.}
|
|
|
|
|
-
|
|
|
|
|
-\item{gpkg_home}{path Salvestatavate GPKG faili asukoht.}
|
|
|
|
|
-}
|
|
|
|
|
-\value{
|
|
|
|
|
-GPKG andmebaasi loomine koos kihtidega 'piir' ja 'bb' (boundary box, piirikast).
|
|
|
|
|
-}
|
|
|
|
|
-\description{
|
|
|
|
|
-Funktsioon loob geopaketi GPKG faili. Tegemist on sqlite andmebaasiga. Samas lisatakse faili piir ja piiri piirkast. Ülejäänud funktsioonid kasutavad selle funktsiooni poolt loodud objekti nime ja piiri ega piirikasti pole vaja enam teiste funktsioonide rakendamisel lisada.
|
|
|
|
|
-}
|
|
|
|
|
-\examples{
|
|
|
|
|
-\dontrun{
|
|
|
|
|
-
|
|
|
|
|
-# read geojson from string:
|
|
|
|
|
-geojson_txt <- paste('{"type":"MultiPoint","coordinates":[[658300,6474800],
|
|
|
|
|
-[658300,6475000],[658700,6476000],[659600,6475000],[659600,6474800],
|
|
|
|
|
-[658300,6474800]]}')
|
|
|
|
|
-x <- sf::read_sf(geojson_txt) \%>\% sf::st_cast("POLYGON")
|
|
|
|
|
-sf::st_crs(x) <- 3301
|
|
|
|
|
-x
|
|
|
|
|
-sf::st_geometry(x) \%>\% graphics::plot()
|
|
|
|
|
-
|
|
|
|
|
-gpkg_home <- "/tmp"
|
|
|
|
|
-obj <- "marja"
|
|
|
|
|
-
|
|
|
|
|
-gpkg_sellest_alustame_gpkg_loomist(pk = x, obj = obj, gpkg_home = gpkg_home)
|
|
|
|
|
-# Layers list.
|
|
|
|
|
-dsn <- sprintf("\%s/\%s.gpkg", gpkg_home, obj)
|
|
|
|
|
-sf::st_layers(dsn = dsn)
|
|
|
|
|
-bb <- sf::read_sf(dsn = dsn, layer = "bb")
|
|
|
|
|
-pk <- sf::read_sf(dsn = dsn, layer = "piir")
|
|
|
|
|
-sf::st_geometry(bb) \%>\% graphics::plot(border = 3, lwd = 0.3, col = "#d3fffb")
|
|
|
|
|
-sf::st_geometry(pk) \%>\% graphics::plot(add = T, border = 3, lwd = 0.3, col = "#a3fffb")
|
|
|
|
|
-}
|
|
|
|
|
-}
|
|
|
|
|
-\seealso{
|
|
|
|
|
-\code{\link[sf:st_read]{sf::st_read()}}, \code{\link[sf:st_write]{sf::write_sf()}},\code{\link[sf:st_transform]{sf::st_transform()}},\code{\link[=gpkg_piirkonnale_ruudustike_lisamine]{gpkg_piirkonnale_ruudustike_lisamine()}} ,\code{\link[=gpkg_piirkonnale_polygoonide_lisamine]{gpkg_piirkonnale_polygoonide_lisamine()}},\code{\link[=gpkg_sellest_alustame_gpkg_loomist]{gpkg_sellest_alustame_gpkg_loomist()}},\code{\link[=gpkg_piirkonnale_joonte_lisamine]{gpkg_piirkonnale_joonte_lisamine()}},\code{\link[=gpkg_piirkonnale_punktide_lisamine]{gpkg_piirkonnale_punktide_lisamine()}}
|
|
|
|
|
-}
|
|
|
|
|
-\keyword{EPSG:3301}
|
|
|
|
|
-\keyword{GPKG,}
|
|
|
|
|
-\keyword{boundary}
|
|
|
|
|
-\keyword{box,}
|
|
|