Commit the man pages and make aggregate public again

R/aggregate.R

@@ -101,9 +101,10 @@ aggregate.metabarcoding.data=function(x, by, FUN,...,
 			  m = matrix(as.character(x[[n]]))
 			  dim(m)=df
 			}
-			else
+			else {
 			  m = x[[n]]
-
+        isfact=FALSE
+		  }
       aggr.args = list(m,by=by,FUN=f,simplify=FALSE)
 			lagr = do.call(aggregate,aggr.args)
 			lagr = as.factor.or.matrix(lagr[,-(1:ncat),drop=FALSE])
@@ -182,15 +183,15 @@ aggregate.metabarcoding.data=function(x, by, FUN,...,
     
     for (n in ln) {
 			f = layers[[n]]
-      
-      if (is.factor(x[[n]])){
+      isfact=is.factor(x[[n]])
+      if (isfact){
 			  isfact = TRUE
         lf = levels(x[[n]])
         df = dim(x[[n]])
         m = matrix(as.character(x[[n]]))
         dim(m)=df
       }
-      else
+      else 
           m = x[[n]]
 
       aggr.args = list(t(m),by=by,FUN=f,simplify=FALSE)