Add discard pieces

pbs-assess · Oct 17, 2024 · bdb14bc · bdb14bc
1 parent 78da9e4
commit bdb14bc
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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