Fix plotting bug

Russel88 · Dec 13, 2022 · aa526e6 · aa526e6
1 parent fb65148
commit aa526e6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: RCon3D
 Title: Analysis of Confocal Images of Microbial Biofilms
-Version: 1.2.6
+Version: 1.2.7
 Authors@R: person("Jakob", "Russel", email = "russel2620@gmail.com", role = c("aut", "cre"))
 Description: Various 3D analyses of confocal images. E.g. Quantification, co-aggregation and identifying 3D aggregates.
 Depends: R (>= 3.2.5)

diff --git a/R/clumps_plot.R b/R/clumps_plot.R
@@ -21,7 +21,7 @@ clumps_plot <- function(clumps.out, replica = 1, col = "agg", pwidth = NULL, zst
   M <- M[!is.na(M$value),]
 
   # Remove by threshold
-  subsize <- clumps.out[[1]][clumps.out[[1]]$Img == unique(clumps.out[[1]]$Img)[1],]
+  subsize <- clumps.out[[1]][clumps.out[[1]]$Img == unique(clumps.out[[1]]$Img)[replica],]
   if(thresh.m){
     if("Size.micron" %in% colnames(subsize)){
       rem <- as.character(subsize[subsize$Size.micron < thresh,"ID"])