Nothing
#' @include operand-classes.R
#' @include expr-classes.R
#' @include Operand-generics.R
#' @include operand-coerce.R
#' @importFrom methods setMethod as
NULL
# ---- Operand ----
#' @describeIn Operand Return the operand used within the condition, or coerce
#' the supplied value into an operand.
setMethod("Operand", ".expr", function(object) {object@operand})
#' @describeIn Operand Replace the operand of a condition.
setMethod(
f = "Operand<-",
signature = c(".expr", "ANY"),
definition = function(object, value) {
use_class <- class(object@operand)
object@operand <- as(value, use_class)
validObject(object)
object
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.