R/ISOBoundAssociationRole.R

In geometa: Tools for Reading and Writing ISO/OGC Geographic Metadata

#' ISOBoundAssociationRole
#'
#' @docType class
#' @importFrom R6 R6Class
#' @export
#' @keywords ISO BoundAssociationRole
#' @return Object of \code{\link{R6Class}} for modelling an ISOBoundAssociationRole
#' @format \code{\link{R6Class}} object.
#'  
#' @references 
#'   ISO 19110:2005 Methodology for Feature cataloguing
#' 
#' @author Emmanuel Blondel <emmanuel.blondel1@@gmail.com>
#'
ISOBoundAssociationRole <- R6Class("ISOBoundAssociationRole",
    inherit = ISOBinding,
    private = list(
      xmlElement = "FC_BoundAssociationRole",
      xmlNamespacePrefix = "GFC"
    ),
    public = list(
      
      #'@field rolePlayer rolePlayer [0..1]: ISOFeatureType
      rolePlayer = NULL,
      
      #'@description set role player
      #'@param rolePlayer object of class \link{ISOFeatureType}
      setRolePlayer = function(rolePlayer){
        if(!is(rolePlayer, "ISOFeatureType")){
          stop("The argument value should be an object of class 'ISOFeatureType'")
        }
        self$rolePlayer <- rolePlayer
      }
      
    )         
)