Restore ht_opt$annotation_use_raster for internally built annotations

UpSet(), oncoPrint() and pheatmap() construct HeatmapAnnotation()
internally and never pass `use_raster`, so the global option is the only
way to rasterize those annotations. Declared as a plain nullable option
to match `annotation_border`, which also allows resetting it to NULL.

Add a test covering the internal path and argument precedence.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>

Author: brandonlukas

R/HeatmapAnnotation-class.R

@@ -151,6 +151,13 @@ HeatmapAnnotation = function(...,
 
 	fun_args = names(as.list(environment()))
 
+	# annotations built inside wrapper functions (oncoPrint(), UpSet(), pheatmap())
+	# never get `use_raster` passed to them, so the global option is the only way
+	# to rasterize those
+	if(missing(use_raster) && !is.null(ht_opt$annotation_use_raster)) {
+		use_raster = ht_opt$annotation_use_raster
+	}
+
 	verbose = ht_opt$verbose
 
 	.Object = new("HeatmapAnnotation")

R/global.R

@@ -209,6 +209,8 @@ ht_opt = setGlobalOptions(
 		.value = FALSE
 	),
 	"validate_names" = TRUE,
+	annotation_use_raster = list(
+		.value = NULL),
 	raster_temp_image_max_width = 30000,
 	raster_temp_image_max_height = 30000,
 	COLOR = c("blue", "#EEEEEE", "red")

tests/testthat/testthat-annotation-raster.R

@@ -11,6 +11,22 @@ test_that("raster parameters are passed down to single annotations", {
 	expect_false(ha@anno_list[["foo"]]@raster_param$use_raster)
 })
 
+# annotations built inside UpSet(), oncoPrint() and pheatmap() are never given a
+# `use_raster` argument, so `ht_opt$annotation_use_raster` is the only way to
+# rasterize them
+test_that("ht_opt$annotation_use_raster reaches internally built annotations", {
+	on.exit(ht_opt$annotation_use_raster <- NULL)
+
+	m = make_comb_mat(list(a = 1:5, b = 3:8, c = 4:10))
+	expect_false(UpSet(m)@top_annotation@anno_list[[1]]@raster_param$use_raster)
+
+	ht_opt$annotation_use_raster = TRUE
+	expect_true(UpSet(m)@top_annotation@anno_list[[1]]@raster_param$use_raster)
+
+	# an explicit argument still wins over the global
+	expect_false(HeatmapAnnotation(foo = 1:10, use_raster = FALSE)@anno_list[["foo"]]@raster_param$use_raster)
+})
+
 # the graphics drawn by `draw_fun` are in absolute units, so the rasterized
 # result must occupy the same area no matter how large the temporary image is
 test_that("rasterized annotation does not shrink when raster_quality increases", {