@@ -168,6 +168,7 @@ Heatmap = setClass("Heatmap",

 # -raster_device Graphic device which is used to generate the raster image.

 # -raster_quality A value set to larger than 1 will improve the quality of the raster image.

 # -raster_device_param A list of further parameters for the selected graphic device. For raster image support, please check https://jokergoo.github.io/ComplexHeatmap-reference/book/a-single-heatmap.html#heatmap-as-raster-image .

+# -raster_resize Whether resize the matrix to let the dimension of the matrix the same as the dimension of the raster image?

 # -post_fun A function which will be executed after the heatmap list is drawn.

 #

 # == details

@@ -269,6 +270,7 @@ Heatmap = function(matrix, col, name,

     raster_device = c("png", "jpeg", "tiff", "CairoPNG", "CairoJPEG", "CairoTIFF"),

     raster_quality = 2,

     raster_device_param = list(),

+    raster_resize = FALSE,

     post_fun = NULL) {

@@ -787,6 +789,7 @@ Heatmap = function(matrix, col, name,

     .Object@heatmap_param$raster_device = match.arg(raster_device)[1]

     .Object@heatmap_param$raster_quality = raster_quality

     .Object@heatmap_param$raster_device_param = raster_device_param

+    .Object@heatmap_param$raster_resize = raster_resize

     .Object@heatmap_param$verbose = verbose

     .Object@heatmap_param$post_fun = post_fun

     .Object@heatmap_param$calling_env = parent.frame()

@@ -81,15 +81,17 @@ setMethod(f = "draw_heatmap_body",

         }

         matrix_is_resized = FALSE

-        if(heatmap_width < nc && heatmap_height < nr) {

-            mat2 = resize_matrix(mat, nr = heatmap_height, nc = heatmap_width)

-            matrix_is_resized = TRUE

-        } else if(heatmap_width < nc) {

-            mat2 = resize_matrix(mat, nr = nr, nc = heatmap_width)

-            matrix_is_resized = TRUE

-        } else if(heatmap_height < nr) {

-            mat2 = resize_matrix(mat, nr = heatmap_height, nc = nc)

-            matrix_is_resized = TRUE

+        if(object@heatmap_param$raster_resize) {

+            if(heatmap_width < nc && heatmap_height < nr) {

+                mat2 = resize_matrix(mat, nr = heatmap_height, nc = heatmap_width)

+                matrix_is_resized = TRUE

+            } else if(heatmap_width < nc) {

+                mat2 = resize_matrix(mat, nr = nr, nc = heatmap_width)

+                matrix_is_resized = TRUE

+            } else if(heatmap_height < nr) {

+                mat2 = resize_matrix(mat, nr = heatmap_height, nc = nc)

+                matrix_is_resized = TRUE

+            }

         }

         temp_dir = tempdir()

@@ -824,5 +824,5 @@ to_unit = function(str) {

 resize_matrix = function(mat, nr, nc) {

     w_ratio = nc/ncol(mat)

     h_ratio = nr/nrow(mat)

-    mat[ floor(1:nr / h_ratio), floor(1:nc / w_ratio)]

+    mat[ floor(1:nr / h_ratio), floor(1:nc / w_ratio), drop = FALSE]

 }