fixed zero low counts bug caused by depenency update

zachary-foster · zachary-foster · commit 66073b7bb657 · 2020-03-24T12:32:29.000-07:00
diff --git a/R/calculations.R b/R/calculations.R
@@ -416,7 +416,11 @@ zero_low_counts <- function(obj, data, min_count = 2, use_total = FALSE,
       } else {
         my_print('No counts found less than ', min_count, '.')
       }
-      count_table[to_zero] <- 0
+      count_table[seq_len(ncol(to_zero))] <- lapply(seq_len(ncol(to_zero)), function(i) {
+        out <- count_table[[i]]
+        out[to_zero[, i]] <- 0
+        out
+      })
     }
     names(count_table) <- as.character(groups) # needed because do_calc_on_num_cols assumes column named by groups even though this function does not use groups currently
     return(count_table)

Original file line number	Diff line number	Diff line change
`@@ -416,7 +416,11 @@ zero_low_counts <- function(obj, data, min_count = 2, use_total = FALSE,`
`416`	`416`	`} else {`
`417`	`417`	`my_print('No counts found less than ', min_count, '.')`
`418`	`418`	`}`
`419`		`- count_table[to_zero] <- 0`
	`419`	`+ count_table[seq_len(ncol(to_zero))] <- lapply(seq_len(ncol(to_zero)), function(i) {`
	`420`	`+ out <- count_table[[i]]`
	`421`	`+ out[to_zero[, i]] <- 0`
	`422`	`+ out`
	`423`	`+ })`
`420`	`424`	`}`
`421`	`425`	`names(count_table) <- as.character(groups) # needed because do_calc_on_num_cols assumes column named by groups even though this function does not use groups currently`
`422`	`426`	`return(count_table)`