###########################################################################/**

# @RdocClass RspConstruct

#

# @title "The RspConstruct class"

#

# \description{

#  @classhierarchy

#

#  An RspConstruct object represents an RSP construct, which can either be

#  (i) an RSP text (a plain text section), (ii) an RSP comment,

#  (iii) an RSP preprocessing directive, or (iv) an RSP expression.

# }

#

# @synopsis

#

# \arguments{

#   \item{object}{A R object.}

#   \item{...}{Arguments passed to @see "RspObject".}

#   \item{comment}{An optional @character string.}

# }

#

# \section{Fields and Methods}{

#  @allmethods

# }

#

# @author

#

# @keyword internal

#*/###########################################################################

setConstructorS3("RspConstruct", function(object=character(), ..., comment=NULL) {

})

#########################################################################/**

# @RdocMethod getInclude

# @alias getInclude.RspText

# @alias getInclude.RspCodeChunk

# @alias getInclude.RspVariableDirective

#

# @title "Checks whether an RSP construct will include text to the output or not"

#

# \description{

#  @get "title".

# }

#

# @synopsis

#

# \arguments{

#   \item{...}{Not used.}

# }

#

# \value{

#  Returns @TRUE of @FALSE.

# }

#

# @author

#

# \seealso{

#   @seeclass

# }

#*/#########################################################################

setMethodS3("getInclude", "RspConstruct", function(object, ...) {

})

#########################################################################/**

# @RdocMethod getComment

#

# @title "Gets the comment of an RSP construct"

#

# \description{

#  @get "title".

# }

#

# @synopsis

#

# \arguments{

#   \item{...}{Not used.}

# }

#

# \value{

#  Returns a @character string.

# }

#

# @author

#

# \seealso{

#   @seeclass

# }

#*/#########################################################################

setMethodS3("getComment", "RspConstruct", function(object, ...) {

})

#########################################################################/**

# @RdocMethod getSuffixSpecs

#

# @title "Gets the suffix specifications"

#

# \description{

#  @get "title".

# }

#

# @synopsis

#

# \arguments{

#   \item{...}{Not used.}

# }

#

# \value{

#  Returns a trimmed @character string.

# }

#

# @author

#

# \seealso{

#   @seeclass

# }

#*/#########################################################################

setMethodS3("getSuffixSpecs", "RspConstruct", function(object, ...) {

##  specs <- gsub("^\\[[ \t\v]*", "", specs)

##  specs <- gsub("[ \t\v]*\\]$", "", specs)

})

#########################################################################/**

# @RdocMethod "asRspString"

# @alias asRspString.RspCode

# @alias asRspString.RspCodeChunk

# @alias asRspString.RspComment

# @alias asRspString.RspDirective

# @alias asRspString.RspDocument

# @alias asRspString.RspText

# @alias asRspString.RspUnParsedDirective

# @alias asRspString.RspUnparsedDirective

#

# @title "Recreates an RSP string from an RspConstruct"

#

# \description{

#  @get "title".

# }

#

# @synopsis

#

# \arguments{

#   \item{...}{Not used.}

# }

#

# \value{

#  Returns an @see "RspString".

# }

#

# @author

#

# \seealso{

#   @seeclass

# }

#*/#########################################################################

setMethodS3("asRspString", "RspConstruct", function(object, ...) {

})