Nothing
setGeneric('readMetadata', function(object, ...) {
metadata <- standardGeneric('readMetadata')
object <- readCornerCoords(object, metadata)
object@orbit <- readOrbitNumber(object, metadata)
object@node <- readNode(object, metadata)
object@centerLon <- mean(object@cornerLon)
object@centerLat <- mean(object@cornerLat)
object@crs <- readCRS(object)
return(object)
})
setMethod('readMetadata', 'Sentinel',
function(object, ...) {
xmlRoot(xmlParse(file.path(object@address, 'manifest.safe')))[['metadataSection']]
})
setMethod('readMetadata', 'TSX',
function(object, ...) {
xmlFile <- list.files(object@address, pattern='*.xml')[1]
xmlRoot(xmlParse(file.path(object@address, xmlFile)))
})
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.