From bbae1857afc55d2c43a2f1f143103ece430e65d2 Mon Sep 17 00:00:00 2001
From: Rob Marty <robmarty3@gmail.com>
Date: Wed, 29 May 2024 16:10:12 +0100
Subject: [PATCH] keep all F for white

---
 .DS_Store                         | Bin 10244 -> 10244 bytes
 R/gt_load_png_as_traffic_raster.R |   2 +-
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/.DS_Store b/.DS_Store
index 310aacd5dcf336b49a7423ea3d0c77eb8a6c93ea..3a7df7aa759a6f448279ab576512f8742fa2f870 100644
GIT binary patch
delta 42
ycmZn(XbISmE;PARu$0}z+(<{k!g%s-0qMy+LMoe;g`e<jW>fgXvYA<wi5UPR!3>K4

delta 51
zcmZn(XbISmE;RX-M5%~{rMZrRk(qg|jzYDik%5kanVI?IVoBr8O2SWgHnS`IX4%Xr
H%ESx+r=t%d

diff --git a/R/gt_load_png_as_traffic_raster.R b/R/gt_load_png_as_traffic_raster.R
index d64d283..e4ed6fc 100644
--- a/R/gt_load_png_as_traffic_raster.R
+++ b/R/gt_load_png_as_traffic_raster.R
@@ -79,7 +79,7 @@ gt_load_png_as_traffic_raster <- function(filename,
         unique() %>% 
         as.data.frame() %>%
         dplyr::rename(hex = ".") %>%
-        dplyr::mutate(hex_noff = str_replace_all(.data$hex, "FF$", ""))
+        dplyr::mutate(hex_noff = str_replace_all(.data$hex, "FF$", "FF"))
       
       lab_df <- color_df$hex_noff %>% 
         schemr::hex_to_lab()