minor fix create visits

GreenswayAB · Oct 29, 2019 · 2aaefb1 · 2aaefb1
1 parent ff76e61
commit 2aaefb1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/organizeBirds.R b/R/organizeBirds.R
@@ -119,7 +119,7 @@ createVisits<-function(x, columns=c("locality", "day", "month", "year", "recorde
 
   if(any(class(x)=="data.frame")){
     return(as.integer(factor(apply(x[columns], 1, paste0, collapse=""))))
-  }else if (class(x)=="OrganizedBirds-class"){
+  }else if (class(x)=="OrganizedBirds"){
     return(as.integer(factor(apply(x$spdf@data[columns], 1, paste0, collapse=""))))
   }else{
     stop("x must be a 'data.frame' or an 'OrganizedBirds'")