fix(commit_catch)

pacific-hake · Dec 10, 2023 · bd209d0 · bd209d0
1 parent 783b483
commit bd209d0
Showing 1 changed file with 3 additions and 8 deletions.
diff --git a/R/commit-.R b/R/commit-.R
@@ -78,17 +78,12 @@ commit_catch <- function(dir_data = hakedata_wd(),
       sector == "ft" ~ "CAN_FreezeTrawl",
       sector == "jv" ~ "CAN_JV"
     )) %>%
-    tidyr::pivot_longer(
-      cols = !sector:Year,
-      names_to = "month"
-    ) %>%
-    dplyr::group_by(Year, sector) %>%
-    dplyr::summarize(catch = sum(value)) %>%
+    dplyr::group_by(year, sector) %>%
+    dplyr::summarize(catch = sum(catch)) %>%
     tidyr::pivot_wider(names_from = sector, values_from = catch) %>%
     dplyr::mutate(
       dplyr::across(dplyr::starts_with("CAN"), tidyr::replace_na, 0)
-    ) %>%
-    dplyr::rename(year = Year)
+    )
   inc <- list(sh, cp, ms, can) %>%
     purrr::reduce(dplyr::full_join, by = "year") %>%
     dplyr::rename(