diff --git a/R/calculate-nutrients.R b/R/calculate-nutrients.R index 20b46ad6..04fc8f27 100644 --- a/R/calculate-nutrients.R +++ b/R/calculate-nutrients.R @@ -56,27 +56,16 @@ get_nutrients_table <- function(pars, summarise = TRUE, convert = TRUE) { Selenium_mu = 40.6528, Zinc_mu = 1.44887, Protein_mu = 17.09566, - Omega3_mu = 0.2460711, + Omega_3_mu = 0.2460711, Calcium_mu = 423.1434, Iron_mu = 2.109762, - VitaminA_mu = 25.77763, + Vitamin_A_mu = 25.77763, interagency_code = "FLY" ) - #nutrients_tab <- - # nutrients_tab %>% - # dplyr::bind_rows(fly_group) - - # use pelagic fish groups to infer FLY nutrients values - pelagics <- - nutrients_tab %>% - dplyr::filter(.data$interagency_code %in% c("CLP", "RAX", "SDX")) %>% - dplyr::summarise(dplyr::across(dplyr::where(is.numeric), ~ median(.x, na.rm = T))) %>% - dplyr::mutate(interagency_code = "FLY") - nutrients_tab <- nutrients_tab %>% - dplyr::bind_rows(pelagics) + dplyr::bind_rows(fly_group) if (isTRUE(convert)) { nutrients_tab <-