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

# @set "class=RspString"

# @RdocMethod toR

#

# @title "Parses and translates the RSP string into R code"

#

# \description{

#  @get "title".

# }

#

# @synopsis

#

# \arguments{

#   \item{envir}{The @environment where the RSP string is preprocessed.}

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

# }

#

# \value{

#  Returns the code as an @see "RspRSourceCode".

# }

#

# @author

#

# \seealso{

#   @seeclass

# }

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

setMethodS3("toR", "RspString", function(object, envir=parent.frame(), ...) {

}, protected=TRUE) # toR()

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

# @RdocMethod evaluate

#

# @title "Parses, translates, and evaluates the RSP string"

#

# \description{

#  @get "title".

# }

#

# @synopsis

#

# \arguments{

#   \item{envir}{The @environment where the RSP string is evaluated.}

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

# }

#

# \value{

#  Returns the last evaluated expression, iff any.

# }

#

# @author

#

# \seealso{

#   @seeclass

# }

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

setMethodS3("evaluate", "RspString", function(object, envir=parent.frame(), ...) {

}, createGeneric=FALSE)