Running examples in ‘pheatmap-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: pheatmap
> ### Title: A function to draw clustered heatmaps.
> ### Aliases: pheatmap
> 
> ### ** Examples
> 
> # Create test matrix
> test = matrix(rnorm(200), 20, 10)
> test[1:10, seq(1, 10, 2)] = test[1:10, seq(1, 10, 2)] + 3
> test[11:20, seq(2, 10, 2)] = test[11:20, seq(2, 10, 2)] + 2
> test[15:20, seq(2, 10, 2)] = test[15:20, seq(2, 10, 2)] + 4
> colnames(test) = paste("Test", 1:10, sep = "")
> rownames(test) = paste("Gene", 1:20, sep = "")
> 
> # Draw heatmaps
> pheatmap(test)
> pheatmap(test, kmeans_k = 2)
> pheatmap(test, scale = "row", clustering_distance_rows = "correlation")
> pheatmap(test, color = colorRampPalette(c("navy", "white", "firebrick3"))(50))
> pheatmap(test, cluster_row = FALSE)
> pheatmap(test, legend = FALSE)
> 
> # Show text within cells
> pheatmap(test, display_numbers = TRUE)
> pheatmap(test, display_numbers = TRUE, number_format = "%.1e")
> pheatmap(test, display_numbers = matrix(ifelse(test > 5, "*", ""), nrow(test)))
> pheatmap(test, cluster_row = FALSE, legend_breaks = -1:4, legend_labels = c("0",
+ "1e-4", "1e-3", "1e-2", "1e-1", "1"))
> 
> # Fix cell sizes and save to file with correct size
> pheatmap(test, cellwidth = 15, cellheight = 12, main = "Example heatmap")
> pheatmap(test, cellwidth = 15, cellheight = 12, fontsize = 8, filename = "test.pdf")
> 
> # Generate annotations for rows and columns
> annotation_col = data.frame(
+                     CellType = factor(rep(c("CT1", "CT2"), 5)), 
+                     Time = 1:5
+                 )
> rownames(annotation_col) = paste("Test", 1:10, sep = "")
> 
> annotation_row = data.frame(
+                     GeneClass = factor(rep(c("Path1", "Path2", "Path3"), c(10, 4, 6)))
+                 )
> rownames(annotation_row) = paste("Gene", 1:20, sep = "")
> 
> # Display row and color annotations
> pheatmap(test, annotation_col = annotation_col)
> pheatmap(test, annotation_col = annotation_col, annotation_legend = FALSE)
> pheatmap(test, annotation_col = annotation_col, annotation_row = annotation_row)
> 
> # Change angle of text in the columns
> pheatmap(test, annotation_col = annotation_col, annotation_row = annotation_row, angle_col = "45")
> pheatmap(test, annotation_col = annotation_col, angle_col = "0")
> 
> # Specify colors
> ann_colors = list(
+     Time = c("white", "firebrick"),
+     CellType = c(CT1 = "#1B9E77", CT2 = "#D95F02"),
+     GeneClass = c(Path1 = "#7570B3", Path2 = "#E7298A", Path3 = "#66A61E")
+ )
> 
> pheatmap(test, annotation_col = annotation_col, annotation_colors = ann_colors, main = "Title")
> pheatmap(test, annotation_col = annotation_col, annotation_row = annotation_row, 
+          annotation_colors = ann_colors)
> pheatmap(test, annotation_col = annotation_col, annotation_colors = ann_colors[2]) 
> 
> # Gaps in heatmaps
> pheatmap(test, annotation_col = annotation_col, cluster_rows = FALSE, gaps_row = c(10, 14))
Error in Ops.unit(m, size) : 
  REAL() can only be applied to a 'numeric', not a 'integer'
Calls: pheatmap ... heatmap_motor -> draw_matrix -> find_coordinates -> Ops.unit
Execution halted