R/TableFilter-methods.R

In jdeboer/ganalytics: Interact with 'Google Analytics'

#' @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
  }
)