ruut/R/convert_sf2qgis.R

#' 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
  }
}