CampR-master/R/ListFaunaTals.camps.r

In fvgls/CampR: Libreria de funciones en R para el programa CAMP

#' Capturas y tallas mínima y máxima de grupos de especies para todos los lances de varias campaña
#'
#' Ver documentación ListFaunaTals.camp
#' @param gr Grupo de la especie: 1 peces, 2 crustáceos 3 moluscos 4 equinodermos 5 invertebrados. 6 desechos no se puede elegir en esta función
#' @param camps campañas (años) a representar en el mapa: Demersales "NXX", Porcupine "PXX", Arsa primavera "1XX" y Arsa otoño "2XX"
#' @param dns Elige el origen de las bases de datos: Porcupine "Pnew", Cantábrico "Cant, Golfo de Cádiz "Arsa" (únicamente para sacar datos al IBTS, no gráficos)
#' @param excl.sect Sectores a excluir como carácter, se pueden elegir tanto los sectores como estratos
#' @param incl2 Si T incluye los lances especiales "2"
#' @seealso {\link{ListFaunaTals.camp}}
#' @export
ListFaunaTals.camps<-function(gr="1",camps,dns,excl.sect=NA,incl2=TRUE) {
  dumb<-cbind(camp=camps[1],ListFaunaTals.camp(gr,camps[1],dns,excl.sect,incl2))
  if (length(camps)>1) {
    for (i in camps[2:length(camps)]) {
      dumb<-rbind(dumb,cbind(camp=i,ListFaunaTals.camp(gr,i,dns,excl.sect,incl2)))
    }
  }
  dumb[order(as.character(dumb$especie)),]
}
#ListFaunaTals.camps(gr="1",Nsh[7:27],"Cant",excl.sect=NA,incl2=TRUE)
#ListFaunaTals.camps(gr="1",Msh,"Cant",excl.sect=NA,incl2=TRUE)