highlight hotfixes

zm19911213 · Nov 13, 2023 · 3faa0e6 · 3faa0e6
1 parent 79c2bec
commit 3faa0e6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/visualization.R b/R/visualization.R
@@ -7895,7 +7895,7 @@ SetHighlight <- function(
 
   # Check for raster
   if (isTRUE(x = raster)) {
-    size <- size[1]
+    size <- sizes.highlight[1]
   }
 
   plot.order <- sort(x = unique(x = highlight), na.last = TRUE)
@@ -8200,7 +8200,7 @@ SingleDimPlot <- function(
   raster <- raster %||% (nrow(x = data) > 1e5)
   pt.size <- pt.size %||% AutoPointSize(data = data, raster = raster)
 
-  if (!is.null(x = cells.highlight) && pt.size == AutoPointSize(data = data, raster = raster) && sizes.highlight != pt.size && isTRUE(x = raster)) {
+  if (!is.null(x = cells.highlight) && pt.size != AutoPointSize(data = data, raster = raster) && sizes.highlight != pt.size && isTRUE(x = raster)) {
     warning("When `raster = TRUE` highlighted and non-highlighted cells must be the same size. Plot will use the value provided to 'sizes.highlight'.")
   }