R/ACurve.R

In rsbml: R support for SBML, using libsbml

setClass("Curve", representation(curveSegments = "list"), contains = "SBase")

setMethod("describe", "Curve", function(object) {
  paste(sapply(curveSegments(object), describe), collapse = " to ")
})

 setGeneric("curveSegments", function(object) standardGeneric("curveSegments"))
setMethod("curveSegments", "Curve", function(object) object@curveSegments)

 setGeneric("curveSegments<-", function(object, value) standardGeneric("curveSegments<-"))
setReplaceMethod("curveSegments", "Curve", function(object, value) {
  if (!all(sapply(value, inherits, "LineSegment")))
    stop("All curve segments must be LineSegment objects")
  object@curveSegments <- value
  object
})