fix to show_sedimentalratio legend to remove extra text

tbep-tech · Dec 6, 2023 · 2161bb2 · 2161bb2
1 parent a71e95d
commit 2161bb2
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: tbeptools
 Title: Data and Indicators for the Tampa Bay Estuary Program
-Version: 2.0.1.9013
-Date: 2023-09-14
+Version: 2.0.1.9014
+Date: 2023-12-06
 Authors@R: c(
     person(given = "Marcus",
       family = "Beck",

diff --git a/R/show_sedimentalratio.R b/R/show_sedimentalratio.R
@@ -173,7 +173,8 @@ show_sedimentalratio <- function(sedimentdata, param, yrrng = c(1993, 2021), bay
   }
 
   # plotly
-  if(plotly)
+  if(plotly){
+
     p <- plotly::ggplotly(p, width = width, height = height) %>%
       plotly::config(
         toImageButtonOptions = list(
@@ -182,6 +183,13 @@ show_sedimentalratio <- function(sedimentdata, param, yrrng = c(1993, 2021), bay
         )
       )
 
+    # remove extra text from legend
+    for(i in 1:length(p$x$data)){
+      p$x$data[[i]]$name <- gsub('^\\(|,1,NA\\)$|,1\\)$', '', p$x$data[[i]]$name)
+    }
+
+  }
+
   return(p)
 
 }