R/readMetadata.r

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)))
          })

Try the ragram package in your browser

Any scripts or data that you put into this service are public.

ragram documentation built on May 2, 2019, 4:42 p.m.