#' @export
vb.spps <- function() {
spp.choose <- sqlQuery(channel,paste("select distinct common from groundfish.gsdet d, mflib.species_codes s where s.research=d.spec and age is not null;"))
return(spp.choose[,1])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.