Nothing
setGeneric('readPolarization', function(object, raster, ...) {
polPossibilities <- c('vv', 'vh', 'hh', 'hv')
for(pol in c(polPossibilities, toupper(polPossibilities))) {
if(length(grep(pol, raster@data@names))>0)
return(pol)
}
return('unrecognized')
standardGeneric('readPolarization')
})
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.