Nothing
#' @include TableFilter-generics.R
#' @include table-filter-classes.R
#' @include table-filter-coerce.R
#' @include utils.R
#' @importFrom methods setMethod as<-
NULL
#' @describeIn TableFilter Coerce the given object into a table filter.
setMethod("TableFilter", c("ANY", "missing"), function(object) {as(object, ".tableFilter")})
#' @describeIn TableFilter Return the TableFilter that has been applied to the
#' given query.
setMethod("TableFilter", c(".query", "missing"), function(object) {
object@filters
})
#' @describeIn TableFilter Method to replace the table filter of a query
setMethod("TableFilter", c(".query", "ANY"), function(object, value) {
use_class <- class(object@filters)
object@filters <- as(value, use_class)
validObject(object)
object
})
#' @describeIn TableFilter Method to replace the table filter of a query
setMethod(
f = "TableFilter<-",
signature = c(".query", "ANY"),
definition = function(object, value) {
value <- switch(
class(object),
"gaQuery" = as(value, "gaFilter"),
"rtQuery" = as(value, "rtFilter"),
"mcfQuery" = as(value, "mcfFilter")
)
object@filters <- value
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.