In HoldenJe/GLReportR: Templates for GL reports using R

library(glfishr)
library(flexdashboard)
library(dplyr)

fn121 <- get_FN121(list(prj_cd = params$prj_cd))
fn123 <- get_FN123(list(prj_cd = params$prj_cd))
fn125 <- get_FN125(list(prj_cd = params$prj_cd))

Site Info

Column {data-width=250}

Total Tows

valueBox(nrow(fn121), icon = "ship")

Total Species Count

valueBox(length(unique(fn123$SPC)), icon = "ship")

Project Start Date

valueBox(min(fn121$EFFDT0), icon = "ship")

Project End Date

valueBox(max(fn121$EFFDT1), icon = "ship")

Column {data-width=600}

Tow Sites

library(leaflet)
fn121 <- fn121 |> 
  mutate(PopupLabelText = paste("PRJ: ", PRJ_CD, "<br>SAM: ", SAM, "<br>Date: ", EFFDT0, sep = ""))
leaflet(fn121) %>% addTiles() %>% 
  addCircles(data = fn121, lat=~DD_LAT, lng=~DD_LON, popup = ~PopupLabelText)

Catch Data

library(kableExtra)
catch_dat <- fn123 |> 
  group_by(SAM, SPC) |> 
  summarize(CATCNT = sum(CATCNT), BIOCNT = sum(BIOCNT), 
            CATWT = sum(CATWT), MeanSize = CATWT/CATCNT)

kbl(catch_dat) %>%
  kable_paper("striped", full_width = F) %>%
  scroll_box(height = "500px")

Fish Data

library(plotly)
if(params$plotallspc) {fn125 <- filter(fn125, SPC %in% c(params$spc1, params$spc2, params$spc3))}
fig <- plot_ly(data = fn125, x = ~FLEN, y = ~RWT, color = ~SPC)
fig