R/resapp_car_class.R

In NEEDS-LS/CARapp: Calculates the deficit of Permanente Protected Area along the water courses based on land use and property size (CAR)

#' Função separa as propriedades por tamanho baseado no numero de modulos fiscais
#'
#' Essa função separa as propriedades por tamanho baseado no número de módulos fiscais
#' @param mapa_CAR Conjunto de propriedades registradas que serão utilizadas na definição das APPS
#' @return lista referente as propriedades separadas por tamanho.
#' @export
#' @examples
#'
#' props<-resapp_car_class(mapa_CAR)
#' micro<-props[[1]]
#' peq12<-props[[2]]
#' peq24<-props[[3]]
#' grand<-props[[4]]

resapp_car_class<-function(mapa_CAR){

  mapa_CAR<-st_buffer(mapa_CAR, 0)

  mapa_CAR<-mapa_CAR[mapa_CAR$ind_status != "CA",]

  micro<-mapa_CAR[mapa_CAR$mod_fiscal<1,]
  pequena_1_2<-mapa_CAR[mapa_CAR$mod_fiscal>=1 & mapa_CAR$mod_fiscal<2,]
  pequena_2_4<-mapa_CAR[mapa_CAR$mod_fiscal>=2 & mapa_CAR$mod_fiscal<4,]
  grande<-mapa_CAR[mapa_CAR$mod_fiscal>=4,]

  nm<-c("Micro", "Pequenas 1 a 2 modulos", "Pequenas 2 a 4 modulos", "Grande")
  lista<-list(micro, pequena_1_2, pequena_2_4, grande, "names" = nm)
  return(lista)
}