Merge pull request #3 from DaisyShi19/daisy_dev

modified text and colorscales
DaisyShi19 · Jan 6, 2025 · 395fe11 · 395fe11
2 parents addc188 + 782fc19
commit 395fe11
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/Indicator_Dashboard/IndicatorDashboard.Rmd b/Indicator_Dashboard/IndicatorDashboard.Rmd
@@ -122,7 +122,7 @@ The __View Indicator Data__ tab lets you access the indicator time series data.
 
 The __About the Indicator__ tab provides background information about the indicator along with some summary statistics.
 
-This dashboard is designed to complement the Western Pacific Regional Fishery Management Council's [data portal](www.wpcouncildata.org/pelagicsafereport/), which includes the full suite of pelagic Climate and Oceanic Indicators and provides access to annual data.
+This dashboard is designed to complement the Western Pacific Regional Fishery Management Council's [data portal](https://wpcouncildata.org/archipelagicsafereport/), which includes the full suite of archipelagic Climate and Oceanic Indicators and provides access to annual data.
 
 The dashboard data match the __`r report_year`__ pelagic SAFE report.  Dashboard data will be updated each summer following publication of the SAFE report.
 
@@ -482,13 +482,13 @@ output$map <- renderPlotly({
     #set color scheme and plotting parameters based on indicator
     if (input$indicator == "SST"){
       pal <- rev(waves)
-      ll_rect_color <- "white" #outline for ll fishing grounds box
+      #ll_rect_color <- "white" #outline for ll fishing grounds box
       fill_scale <- scale_fill_gradientn(name = input$indicator, colors = pal)
     } else if (input$indicator == "Chl"){
       pal <- seagrass
-      ll_rect_color <- "white" #outline for ll fishing grounds box
+      #ll_rect_color <- "white" #outline for ll fishing grounds box
       fill_scale <- scale_fill_gradientn(name = input$indicator, trans = log10_trans(),  
-                                         colors = pal, limits = c(0.01, 10), oob = squish) #log scale
+                                         colors = pal, limits = c(0.01, 1), oob = squish) #log scale
     }
     
     #report year map
@@ -669,7 +669,7 @@ output$anom_map <- renderPlotly({
   if (input$indicator == "Chl"){
     anom_fill_scale <- scale_fill_gradient2(name = input$indicator, low = oceans[2], 
                                             mid = "white", high = coral[2], oob = squish, 
-                                            midpoint = 0, limits = c(-1, 1))
+                                            midpoint = 0, limits = c(-0.05, 0.05))
   } else{
     anom_fill_scale <- scale_fill_gradient2(name = input$indicator, low = oceans[2], 
                                             mid = "white", high = coral[2], midpoint = 0)