Lisatud funktsioon 'convert_sf2qgis'.

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(cat_function)
+export(convert_sf2qgis)
 export(copy_polygon_to_db)
 export(db_all_schemas)
 export(db_connect)

R/convert_sf2qgis.R

@@ -0,0 +1,29 @@
+#' Konverteerimine: 'sf' TO 'qgis'
+#'
+#' Funktsioon konverteerib geomeetria 'sf' kujul qgis, et oleks rakendatavad QGIS >= 3.14 tööriist qgisprocess.
+#' @param x	object of class sf, sfc or sfg.
+#' @keywords sf, qgis
+#' @export
+#' @examples
+#' ## Not run:
+#' ## class(pk)
+#' ## > [1] "sf" ...
+#' ##
+#' ## convert_sf2qgis(x = pk)
+#' ##
+#' ## End(**Not run**)
+convert_sf2qgis <- function(x = NULL) {
+  if (!is.null(x) && sf::st_is_valid(x)) {
+    result <- qgisprocess::qgis_run_algorithm(
+      "native:buffer",
+      INPUT = x,
+      DISTANCE = 1e-16,
+      DISSOLVE = TRUE,
+      .quiet = TRUE
+    )
+    # sf::read_sf(qgisprocess::qgis_output(result, "OUTPUT"))
+    result
+  } else {
+    NULL
+  }
+}

R/pk_boundary_box.R

@@ -7,7 +7,7 @@
 #' @examples
 #' ## Not run:
 #' ## class(pk)
-#' ## > [1] "sf"         "data.frame"
+#' ## > [1] "sf" ...
 #' ##
 #' ## pk_bbox(x = pk)
 #' ##

man/convert_sf2qgis.Rd

@@ -0,0 +1,25 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/convert_sf2qgis.R
+\name{convert_sf2qgis}
+\alias{convert_sf2qgis}
+\title{Konverteerimine: 'sf' TO 'qgis'}
+\usage{
+convert_sf2qgis(x = NULL)
+}
+\arguments{
+\item{x}{object of class sf, sfc or sfg.}
+}
+\description{
+Funktsioon konverteerib geomeetria 'sf' kujul qgis, et oleks rakendatavad QGIS >= 3.14 tööriist qgisprocess.
+}
+\examples{
+## Not run:
+## class(pk)
+## > [1] "sf" ...
+##
+## convert_sf2qgis(x = pk)
+##
+## End(**Not run**)
+}
+\keyword{qgis}
+\keyword{sf,}

man/pk_bbox.Rd

@@ -15,7 +15,7 @@ Funktsioon leiab etteantud piirkonnale piirikasti (boundary box). Tulemuseks on
 \examples{
 ## Not run:
 ## class(pk)
-## > [1] "sf"         "data.frame"
+## > [1] "sf" ...
 ##
 ## pk_bbox(x = pk)
 ##