hadling NaN of vals

Author: rix133

R/visualization_functions.R

@@ -578,6 +578,8 @@ color_kegg_pathway <- function(pw_id, change_vec, normalize_vals = TRUE,
 
   ### determine limit
   lim <- round(max(abs(vals)), 2)
+  ### if no vals exist set lim to 1 maybe raise a warning also
+  lim <- ifelse(is.na(lim), 1, lim)
 
   ### generate low colors
   low_vals <- vals[vals < 0]