Nothing
#'@title get metadata for a lake in GLTC dataset
#'@description Find associated metadata for a lake from the Global Lake Temperature Collaboration dataset.
#'See associated publication and references therein for details including units and data provenance.
#'@param lake_name a valid name of a lake in the GLTC dataset (see \code{\link{get_lake_names}}).
#'\code{lake_name} is case insensitive.
#'@param metadata_name a name of a metadata variable in GLTC dataset
#'(optional; see \code{\link{get_metadata_names}}).
#'\code{metadata_name} is case insensitive.
#'@return data.frame with metadata (if \code{metadata_name} is missing) or the value of that metadata field if
#'\code{metadata_name} is specified
#'@seealso \code{\link{get_metadata_names}}, \code{\link{get_lake_names}}, \code{\link{get_climate_names}}
#'@examples
#'get_metadata('Victoria','Sampling.depth')
#'get_metadata('Mendota')
#'get_metadata('mendota','sampling.depth')
#'get_metadata("Toolik.JJA",c('location','source'))
#'@importFrom dplyr filter
#'@export
get_metadata <- function(lake_name, metadata_name){
# -- fix for R CMD check 'no visible binding for global variable'
Lake.name <- "_private"
# -- fix for R CMD check 'no visible binding for global variable'
if (missing(lake_name)){
lake_name <- get_lake_names()
} else {
check_lake(lake_name)
}
if (missing(metadata_name)){
metadata_name <- get_metadata_names(lake_name)
}
metadata <- filter(gltc_metadata, tolower(Lake.name) == tolower(lake_name))
c_i <- which((tolower(names(metadata)) %in% tolower(metadata_name)))
if (length(c_i) == 0){
stop('variable "', metadata_name,'" not found in GLTC metadata')
}
if (length(metadata_name) == 1){
metadata <- metadata[[c_i]]
} else {
metadata <- metadata[c_i]
}
return(metadata)
}
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.