WIP/cast_vectype.R

In IREA-CNR-MI/sprawl: sprawl: Spatial Processing (in) R: Advanced Workflows Library

#' #' @title cast a vector to `sf` `sp` or shapefile
#' #' @description accessory function automatically recast an object to a `sf`, `sp` object, or to
#' #'   a shapefile on disk
#' #' @param in_vect either a `R` object or a `character` string potentially pointing to a vector file
#' #' @to in_vect either a `R` object or a `character` string potentially pointing to a vector file
#' #' @return character vector equal to *spobject*, *sfobject*, *rastobject*, *vectfile* or *rastfile*
#' #'
#' #' @export
#' #' @importFrom gdalUtils ogrinfo gdalinfo
#' #' @examples \dontrun{
#' #' library(sprawl.data)
#' #' # input is a raster file
#' #' get_spatype(system.file("extdata","testrast.tif", package = "sprawl.data"))
#' #'
#' #' # input is a shapefile
#' #' shp_file <- system.file("extdata","lc_polys.shp", package = "sprawl.data")
#' #' get_spatype(shp_file)
#' #'
#' #' # input is a `sp` object
#' #' obj <- read_vect(shp_file, as_sp = TRUE)
#' #' get_spatype(obj)
#' #'
#' #' # input is a `sf` object
#' #' obj <- read_vect(shp_file)
#' #' get_spatype(obj)
#' #' }
#' #'
#' cast_vectype <- function(in_vect, to) {
#'
#'   if (to %in% c("spobject", "sfobject", "vectfile")) {
#'     stop("check_vectype --> invalid value in `to`. Set it to 'spobject', 'sfobject' or
#' 'vectfile'")
#'   }
#'
#'   vec_type <- "none"
#'
#'
#'
#'   if (vec_type == "none") {
#'     stop("check_vectype --> ", in_vect, " is not a vector (`*sf`` or `*sp` object or recognized
#'              vector file. Aborting !")
#'   } else {
#'     if (is.null(cast_to)) {
#'       return(vec_type)
#'     } else {
#'       if (vec_type != cast_to) {
#'         if (vec_type == "vectfile") {
#'           in_vect <- read_vect(in_vect)
#'           if (cast_to == "spobject") {
#'             in_vect <- as(in_vect, "Spatial")
#'           }
#'         }
#'
#'
#'         if (cast_to == "sfobject") {
#'           if (vec_type == "sfobject") {
#'             in_vect <- sf::st_as_sf(in_vect)
#'           } else {
#'
#'           }
#'         }
#'         if (cast_to == "spobject")
#'           in_vect <- as()
#'       }
#'     }
#'
#'   }
#' }
#' }