Nothing
get_site_ID <- function(lake_name){
siteID <- get_metadata(lake_name, 'siteID')
return(siteID)
}
temp_types = function(){
return(c('Lake.Temp.Summer.Satellite','Lake.Temp.Summer.InSitu'))
}
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.