From 3f489015805086488c58079a3f33aeb68f1959b8 Mon Sep 17 00:00:00 2001
From: schuch666 <underschuch@example.com>
Date: Thu, 13 Jul 2023 12:21:02 -0400
Subject: [PATCH] fix bug on color on plot speed

---
 R/Speed.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/Speed.R b/R/Speed.R
index 34464f92..d1b3493e 100755
--- a/R/Speed.R
+++ b/R/Speed.R
@@ -148,7 +148,7 @@ plot.Speed <- function(x,
                     z = t(as.matrix(x))[, nrow(x):1],
                     xlab = "",
                     ylab = paste0("Speed by streets [",as.character(units(x[[1]])), "]"),
-                    col = col,
+                    col = rev(col),
                     axe = FALSE)
     axis(2)
     addscale(t(as.matrix(x))[, nrow(x):1], col = col)