Nothing
regions <- function(label) {
region_definitions <- NULL
rm(region_definitions)
data('region_definitions',envir=environment(),package='oceanmap')
if (missing(label)) stop("error in regions.r: No region label selected! Please select valid region label:\n",paste(paste(region_definitions[,1],"\t",region_definitions[,2]),collapse='\n'))
i <- which(region_definitions$label == label)
if (length(i) < 1) stop("error in regions.r: Selected region not found! Please select valid region label:\n",paste(paste(region_definitions[,1],"\t",region_definitions[,2]),collapse='\n'))
rlon <- c(region_definitions$lonw[i],region_definitions$lone[i])
rlat <- c(region_definitions$lats[i],region_definitions$latn[i])
rdim <- c(region_definitions$ncol[i],region_definitions$nrow[i])
rname <- as.character(region_definitions$name[i])
rx <- c(region_definitions$cbx1[i],region_definitions$cbx2[i]) # x-ccordination of colorbar
ry <- c(region_definitions$cby1[i],region_definitions$cby2[i]) # y-ccordination of colorbar
rfigdim <- c(region_definitions$figxdim[i],region_definitions$figydim[i])
align <- c(as.character(region_definitions$gradient[i]),as.character(region_definitions$oticks[i]))
center <- region_definitions$center[i]
return(list(xlim=rlon, ylim=rlat, dim=rdim, name=rname,cbx=rx,cby=ry,align=align,figdim=rfigdim,grid.res=region_definitions$grid.res[i],center=center))
}
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.