Nothing
#' Generate Plot Title Based on NERR Site ID
#'
#' Generate a plot title based on SWMP station abbreviation
#'
#' @param nerr_site_id chr string of NERR site id
#'
#' @export
#'
#' @details A helper function used internally by several plotting functions to generate plot titles.
#'
#' @author Julie Padilla
#'
#' @concept miscellaneous
#'
#' @return Returns character vector
#'
#' @examples
#' ttl <- title_labeler('elkapwq')
#'
title_labeler <- function(nerr_site_id) {
abbrev <- substr(nerr_site_id, 4, 5)
dat_locs <- get('sampling_stations')
dat_locs$Station.Code <- trimws(dat_locs$Station.Code)
ttl <- dat_locs[dat_locs$Station.Code == nerr_site_id, ]$Station.Name
ttl <- trimws(ttl)
ttl <- paste(ttl, ' (', toupper(abbrev)
, ')', sep = '')
return(ttl)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.