CampR-master/R/unid.camp.r

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

#' Unidades en que se mide una especie
#'
#' Da información de las unidades en que se miden las especies y permite añadir datos a los gráficos
#' @param gr Grupo de la especie: 1 peces, 2 crustáceos 3 moluscos 4 equinodermos 5 invertebrados
#' @param esp Código de la especie numérico o carácter con tres espacios. 999 para todas las especies del grupo
#' @export
unid.camp<-function(gr,esp) {
  esp<-format(esp,width=3,justify="r")
  ch1<-RODBC::odbcConnect(dsn="Camp")
  RODBC::odbcSetAutoCommit(ch1, FALSE)
  if (length(gr)>1 | length(esp)>2) {
    stop("Esta función no permite más de una especie por vez")
  }
  else especie<-RODBC::sqlQuery(ch1,paste("select MED,INCREM from Especies where grupo='",gr,"' and esp='",esp,"'",sep=""))
  RODBC::odbcClose(ch1)
  especie
}