ruut/R/convert_sf2qgis.R

#' Konverteerimine: 'sf' to 'qgis'
#'
#' Funktsioon konverteerib geomeetria 'sf' kujul 'qgis_object', et oleks rakendatavad QGIS >= 3.14 tööriist \url{https://github.com/paleolimbot/qgisprocess}. Vaata veel \url{https://r-spatial.github.io/sf/}, \code{\link[sf]{st_is_valid}}.
#' @param x	object of class 'sf', 'sfc' or 'sfg'.
#' @return The object with class 'qgis_object'.
#' @seealso [qgisprocess::qgis_run_algorithm()], [qgisprocess::qgis_output()], [sf::st_is_valid()], [sf::read_sf()]
#' @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
  }
}