##' Create the category lookup table. This matches a size category to a length
##' estimate so that biomasses can be calculated on categorical sizes.
##'
##' @title Create category lookup table
##'
##' @param category_lookup The category lookup table.
##'
##' @return The category lookup table as a data frame.
##'
##' @keywords
##' @importFrom dplyr %>%
##' @export
create_category_lookup <- function(){
category_lookup <- allometry() %>%
add_missing_bwg_names() %>%
filter_type(measurement = FALSE) %>%
select_category_cols()
return(category_lookup)
}
##' Select the relevant columns for the category lookup table. length_mm is
##' renamed to length_est_mm as the lengths are estimates for category
##' definitions.
##'
##' @title Select category cols
##'
##' @param category_lookup The category lookup table.
##'
##' @keywords internal
##' @importFrom dplyr %>%
##' @export
select_category_cols <- function(allometry_data){
category_lookup <- allometry_data %>%
dplyr::rename(length_est_mm = length_mm) %>%
dplyr::select(bwg_name, stage, size_category, length_est_mm)
# Standardize stage
category_lookup[category_lookup$stage == "larvae", "stage"] <- "larva"
return(category_lookup)
}
##' Standardize the size categories in the category lookup table.
##'
##' @title Standardize size categories.
##'
##' @param category_lookup The category lookup table.
##'
##' @keywords internal
##' @importFrom dplyr %>%
##' @export
standardize_size_categories <- function(category_lookup){
category_lookup$size_category <- category_lookup$size_category %>%
dplyr::recode("very large" = "xlarge",
"large med" = "medium_large",
"small med" = "small_medium",
"extra tiny" = "xtiny")
return(category_lookup)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.