ISOImageryGCPCollection

ISOImageryGCPCollection

Format

R6Class object.

Value

Object of R6Class for modelling an ISO imagery gcp collection

Author

Emmanuel Blondel <emmanuel.blondel1@gmail.com>

Public fields

collectionIdentification

collectionIdentification [1..1]: integer

collectionName

collectionName [1..1]: character|ISOLocalisedCharacterString

coordinateReferenceSystem

coordinateReferenceSystem [1..1]: ISOAbstractReferenceSystem

gcp

gcp [0..*]: list of ISOImageryGCP

Methods

Inherited methods


Method new()

Initializes object

Usage

ISOImageryGCPCollection$new(xml = NULL)

Arguments

xml

object of class XMLInternalNode-class


Method setCollectionIdentification()

Set collection identification id

Usage

ISOImageryGCPCollection$setCollectionIdentification(id)

Arguments

id

object of class integer


Method setCollectionName()

Set collection name

Usage

ISOImageryGCPCollection$setCollectionName(name, locales = NULL)

Arguments

name

object of class character

locales

list of localized names. Default is NULL


Method setCoordinateReferenceSystem()

Set coordinate reference system

Usage

ISOImageryGCPCollection$setCoordinateReferenceSystem(crs)

Arguments

crs

object of class inheriting ISOAbstractReferenceSystem


Method addGCP()

Adds GCP

Usage

ISOImageryGCPCollection$addGCP(gcp)

Arguments

gcp

object of class ISOImageryGCP

Returns

TRUE if added, FALSE otherwise


Method delGCP()

Deletes GCP

Usage

ISOImageryGCPCollection$delGCP(gcp)

Arguments

gcp

object of class ISOImageryGCP

Returns

TRUE if deleted, FALSE otherwise


Method clone()

The objects of this class are cloneable with this method.

Usage

ISOImageryGCPCollection$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

  md <- ISOImageryGCPCollection$new()
  md$setCollectionIdentification(1L)
  md$setCollectionName("name")
  rs <- ISOReferenceSystem$new()
  rsId <- ISOReferenceIdentifier$new(code = "4326", codeSpace = "EPSG")
  rs$setReferenceSystemIdentifier(rsId)
  md$setCoordinateReferenceSystem(rs)
  xml <- md$encode()
#> [geometa][WARN] Element '{http://www.isotc211.org/2005/gmi}MI_GCPCollection': No matching global declaration available for the validation root at line 1. 
#> [geometa][WARN] Object 'ISOImageryGCPCollection' is INVALID according to ISO 19139 XML schemas!