R/accessors.r

In wrathematics/rgutenberg: Random Project Gutenberg Text

#setMethod("title", signature(x="book"),
#  function(x)
#  {
#    return( x@title )
#  }
#)



setMethod("author", signature(x="book"),
  function(x)
  {
    return( x@author )
  }
)



setMethod("text", signature(x="book"),
  function(x)
  {
    return( paste(x@text, collapse="\n") )
  }
)



setMethod("text", signature(x="pgbook"),
  function(x, with.license=FALSE)
  {
    if (with.license)
      return( paste(x@header, x@text, x@license, collapse="\n") )
    else
      return( paste(x@text, collapse="\n") )
  }
)



setMethod("language", signature(x="book"),
  function(x)
  {
    return( x@language )
  }
)



setMethod("license", signature(x="pgbook"),
  function(x)
  {
    return( x@license )
  }
)

setMethod("license", signature(x="missing"),
  base::license
)