Browse code

Update HeatmapAnnotation-class.R

Zuguang Gu authored on 13/09/2016 09:19:43 • GitHub committed on 13/09/2016 09:19:43
Showing 1 changed files

... ...
@@ -259,10 +259,12 @@ HeatmapAnnotation = function(df, name, col, na_col = "grey",
259 259
 			} 
260 260
 		}
261 261
 	}
262
-
263
-	unused_col_name = setdiff(names(col), col_name_defined)
264
-	if(length(unused_col_name)) {
265
-		warning(paste0("Following are defined in `col` while have no corresponding annotations:\n", paste(unused_col_name, collapse = ", ")))
262
+	
263
+	if(!missing(col)) {
264
+		unused_col_name = setdiff(names(col), col_name_defined)
265
+		if(length(unused_col_name)) {
266
+			warning(paste0("Following are defined in `col` while have no corresponding annotations:\n", paste(unused_col_name, collapse = ", ")))
267
+		}
266 268
 	}
267 269
 
268 270
 	n_total_anno = length(anno_list)