R/load.data.shp.r

In sandwichr: Spatial Prediction Based on Spatial Stratified Heterogeneity

#' Load shapefiles into \code{sf}s
#'
#' @description
#' Convert shapefiles into a list of \code{sf} objects.
#'
#' @usage load.data.shp(sampling.file,
#'        ssh.file,
#'        reporting.file)
#'
#' @param sampling.file Path to the sampling layer. The sampling layer should be a point \code{sf} object that contains an attribute to be interpolated.
#' @param ssh.file Path to the SSH layer. The SSH layer should be a polygon \code{sf} object.
#' @param reporting.file Path to the reporting layer. The reporting layer should be a polygon \code{sf} object.
#'
#' @return A list of \code{sf} objects.
#'
#' @import sf tools
#' @export
#'
#' @examples
#' sim.sampling.name <- system.file("extdata", "sim.sampling.shp",
#'                                  package="sandwichr")
#' sim.ssh.name <- system.file("extdata", "sim.ssh.shp",
#'                             package="sandwichr")
#' sim.reporting.name <- system.file("extdata", "sim.reporting.shp",
#'                                   package="sandwichr")
#'
#' sim.data <- load.data.shp(sampling.file=sim.sampling.name,
#'                           ssh.file=sim.ssh.name,
#'                           reporting.file=sim.reporting.name)
#'
#' @name load.data.shp
#'
# ---- End of roxygen documentation ----

load.data.shp <- function(sampling.file, ssh.file, reporting.file){
  sampling.lyr = read_sf(dsn=dirname(sampling.file),
                         layer=file_path_sans_ext(basename(sampling.file)))
  ssh.lyr = read_sf(dsn=dirname(ssh.file),
                    layer=file_path_sans_ext(basename(ssh.file)))
  reporting.lyr = read_sf(dsn=dirname(reporting.file),
                          layer=file_path_sans_ext(basename(reporting.file)))
  list(sampling.lyr, ssh.lyr, reporting.lyr)
}