reversed colors again

R/trafficlight.R

@@ -69,7 +69,7 @@
 
 trafficlight <- function(x, time = NULL, sort_5yrmean = TRUE, sort_vec = NULL,
   method = "quantiles", probs = seq(0, 1, 0.2), quantile_type = 7, intervals = 5,
-  cols = c("red","gold", "yellow", "greenyellow", "green3"),
+  cols = c("green3", "greenyellow", "yellow", "gold","red"),
   main = "", xlab = "", ylab = "", adj_xlab = NULL, adj_ylab = NULL,
   hadj_x = 0.5, vadj_x = -0.7, hadj_y = -0.7, vadj_y = 0.3,
   madj_bottom = 0, madj_left = 0, madj_top = 0, madj_right = 0,