Merge pull request #1899 from cmf1997/fix/bug-RegionPlot-bin-fix

timoast · web-flow · commit 7324427c9ab6 · 2025-07-16T21:23:04.000-04:00
Fix:RegionPlot-bin-fix
diff --git a/R/visualization.R b/R/visualization.R
@@ -1001,9 +1001,11 @@ RegionPlot <- function(
           )
         )
       }
-      # fix bin label
-      df$bin <- (df$bin - (upstream/window)) * window
     }
+    
+    # fix bin label
+    df$bin <- (df$bin - (upstream/window)) * window
+
     df$assay <- assay[[j]]
     all.assay <- rbind(all.assay, df)
   }

Original file line number	Diff line number	Diff line change
`@@ -1001,9 +1001,11 @@ RegionPlot <- function(`
`1001`	`1001`	`)`
`1002`	`1002`	`)`
`1003`	`1003`	`}`
`1004`		`- # fix bin label`
`1005`		`- df$bin <- (df$bin - (upstream/window)) * window`
`1006`	`1004`	`}`
	`1005`	`+`
	`1006`	`+ # fix bin label`
	`1007`	`+ df$bin <- (df$bin - (upstream/window)) * window`
	`1008`	`+`
`1007`	`1009`	`df$assay <- assay[[j]]`
`1008`	`1010`	`all.assay <- rbind(all.assay, df)`
`1009`	`1011`	`}`