adding more text info, changing text size on barplots

R/funcs.R

@@ -109,30 +109,32 @@ sumplo_fun <- function(cntdat){
     ) %>%
     complete(yr)
 
+  fntsz <- 15
+
   p1 <- plot_ly(toplo, x = ~yr, y = ~tot, type = 'bar', color = I('#427355'), text = ~tot,
                 hoverinfo = 'y'
   ) %>%
     layout(
-      yaxis = list(title = 'Total scallops found', rangemode = 'nonnegative'),
-      xaxis = list(title = ''),
+      yaxis = list(title = 'Total scallops found', rangemode = 'nonnegative', titlefont = list(size = fntsz), tickfont = list(size = fntsz)),
+      xaxis = list(title = '', titlefont = list(size = fntsz), tickfont = list(size = fntsz)),
       showlegend = FALSE
     )
 
   p2 <- plot_ly(toplo, x = ~yr, y = ~bts, type = 'bar', color = I('#004F7E'), text = ~bts,
                 hoverinfo = 'y'
   ) %>%
     layout(
-      yaxis = list(title = 'Boats searching', rangemode = 'nonnegative'),
-      xaxis = list(title = ''),
+      yaxis = list(title = 'Boats searching', rangemode = 'nonnegative', titlefont = list(size = fntsz), tickfont = list(size = fntsz)),
+      xaxis = list(title = '', titlefont = list(size = fntsz), tickfont = list(size = fntsz)),
       showlegend = FALSE
     )
 
   p3 <- plot_ly(toplo, x = ~yr, y = ~totscl, type = 'bar', color = I('#958984'), text = ~totscl,
                 hoverinfo = 'y'
   ) %>%
     layout(
-      yaxis = list(title = 'Scallops per boat', rangemode = 'nonnegative'),
-      xaxis = list(title = ''),
+      yaxis = list(title = 'Scallops per boat', rangemode = 'nonnegative', titlefont = list(size = fntsz), tickfont = list(size = fntsz)),
+      xaxis = list(title = '', titlefont = list(size = fntsz), tickfont = list(size = fntsz)),
       showlegend = FALSE
     )
 

index.Rmd

@@ -1,8 +1,10 @@
 ---
-title: "Great Bay Scallop Search"
+title: "GREAT BAY SCALLOP SEARCH"
 output: 
   flexdashboard::flex_dashboard:
     orientation: rows
+    social: menu
+    source_code: "https://github.com/tbep-tech/scallop-search"
 css: styles.css
 ---
 
@@ -37,7 +39,7 @@ SCALLOPS 101
 Column
 -------------------------------------
 
-### 
+### WELCOME TO THE GREAT BAY SCALLOP SEARCH DASHBOARD!
 
 <div class = "row">
 <div class = "col-md-2"></div>
@@ -59,7 +61,7 @@ knitr::include_graphics('www/scallops open in hand boat in focus.jpg')
 
 Having a robust population of scallops in the estuary is important for many reasons. Scallops are filter feeders and remove algae and organic matter from the water column. Additionally, during periods of red tide, they help remove algae cells and store toxins in their gut. 
 
-Scallops are a key indicator of Bay health due to their requirement for clear, salty water, and robust seagrass habitat. (CCMP, 2017)
+Scallops are a key indicator of Bay health due to their requirement for clear, salty water, and robust seagrass habitat ([CCMP, 2017](https://indd.adobe.com/view/cf7b3c48-d2b2-4713-921c-c2a0d4466632){target="_blank"}).
 
 ```{r, fig.align = 'center', out.width = '60%'}
 knitr::include_graphics('www/scallop.jpg')
@@ -97,6 +99,13 @@ knitr::include_graphics('www/scallop search team waving 1.jpg')
 
 #### More information
 
+Please visit the [Tampa Bay Watch](https://tampabaywatch.org/restoration/scallop-search/){target="_blank"} web page for more information about the Scallop Search. This dashboard was a collaboration between [Tampa Bay Watch](https://tampabaywatch.org/restoration/scallop-search/){target="_blank"} and the [Tampa Bay Estuary Program](https://www.tbep.org){target="_blank"}. Questions and comments about the dashboard can be sent to [Marcus Beck](mailto:[email protected]) or [Sheila Scolaro](mailto:[email protected]). The website source content can be viewed on [Github](https://github.com/tbep-tech/scallop-search). Like this app? Share it on social media using the [\#TampaBayOpenSci](https://twitter.com/hashtag/TampaBayOpenSci?src=hashtag_click) hashtag.  
+
+```{r, fig.align = 'center', out.width = '90%'}
+knitr::include_graphics('www/logos.png')
+```
+
+<a rel='license' href='http://creativecommons.org/licenses/by/4.0/'><img alt='Creative Commons License' style='border-width:0' src='https://i.creativecommons.org/l/by/4.0/88x31.png' /></a>&nbsp;&nbsp;This website is licensed under a <a rel='license' href='http://creativecommons.org/licenses/by/4.0/'>Creative Commons Attribution 4.0 International License</a>.
 
 </div>
 <div class = "col-md-2"></div>