minor bugfix

Author: snaketron

R/utils_usage.R

@@ -43,13 +43,14 @@ get_usage <- function(u) {
     }
 
     if(has_replicates) {
-      q <- u[duplicated(u[,c("individual_id","condition",
-                             "replicate_id")]) == FALSE,]
-      q$f <- 1
-      q <- aggregate(f~individual_id+condition+replicate_id, 
-                     data = q, FUN = sum, drop = FALSE)
-      q$f[is.null(q$f)|is.na(q$f)] <- 0
-      return(ifelse(test = any(q$f!=1), yes = FALSE, no = TRUE))
+      return(has_balanced_replicates)
+      # q <- u[duplicated(u[,c("individual_id","condition",
+      #                        "replicate_id")]) == FALSE,]
+      # q$f <- 1
+      # q <- aggregate(f~individual_id+condition+replicate_id, 
+      #                data = q, FUN = sum, drop = FALSE)
+      # q$f[is.null(q$f)|is.na(q$f)] <- 0
+      # return(ifelse(test = any(q$f!=1), yes = FALSE, no = TRUE))
     }
     else {
       q <- u[duplicated(u[,c("individual_id", "condition")])==FALSE,]
@@ -85,8 +86,7 @@ get_usage <- function(u) {
     if(all(table(k)==1)) {
       has_replicates <- FALSE
     }
-  }
-  else {
+  } else {
 
     has_replicates <- FALSE