R/giveRegions.R

In bRacatus: A Method to Estimate the Accuracy and Biogeographical Status of Georeferenced Biological Data

#' giveRegions
#'
#' Input checklist regions
#'
#' @importFrom rworldmap getMap
#' @param regs shapefile containing all regions of occurrence.
#' @param regs_native shapefile containing regions where the species is native.
#' @param regs_alien shapefile containing regions where the species is alien.
#' @return This function returns a list containing three shapefiles derived by 
#' information supplied by GIFT. "regs" includes all the features corresponding
#' to regions where the species has been listed as present. "regs_native" 
#' includes all the features corresponding to regions where the species has 
#' been listed as native. And "regs_alien" includes all the features 
#' corresponding to regions where the species has been listed as alien.
#' @examples
#' library(rworldmap)
#' world <- getMap()
#' regs <- world[c("Brazil","Argentina","Uruguay","Paraguay"),]
#' regs_native <- world[c("Brazil","Paraguay"),]
#' regs_alien <- world[c("Argentina"),]
#' regs_list <- giveRegions(regs,regs_native,regs_alien)
#' @export
giveRegions <- function(regs,regs_native,regs_alien){

    regs_list <- list(regs,regs_native,regs_alien)
    names(regs_list) <- c("Presence","Native","Alien")
    return(regs_list)
}