diff --git a/analysis/utils.R b/analysis/utils.R index 3a3d3f3..50512a6 100644 --- a/analysis/utils.R +++ b/analysis/utils.R @@ -36,7 +36,7 @@ tidy_catch_dogfish <- function( `UNKNOWN TRAWL` = "Unknown/trawl" ) ) %>% - select(year, area, species_common_name, gear, landed_kg, discarded_kg) + select(year, area, species_common_name, gear, landed_kg, discarded_kg, discarded_pcs) # cm <- reshape2::melt(catches, # id.vars = c("year", "species_common_name", "area", "gear") @@ -46,6 +46,7 @@ tidy_catch_dogfish <- function( summarise( landed_kg = sum(landed_kg, na.rm = TRUE), discarded_kg = sum(discarded_kg, na.rm = TRUE), + discarded_pcs = sum(discarded_pcs, na.rm = TRUE), .groups = "drop") all_catch diff --git a/data/generated/catch-4B5ABCDE3CD-summarized.rds b/data/generated/catch-4B5ABCDE3CD-summarized.rds index 8630c29..c089165 100644 Binary files a/data/generated/catch-4B5ABCDE3CD-summarized.rds and b/data/generated/catch-4B5ABCDE3CD-summarized.rds differ