R/filter.R

In ThinkR-open/tidyxts: tidy xts manipulation

#' @name filter
#' @rdname filter
#' @export
#' @importFrom dplyr filter
NULL

#' @rdname filter
#' @method filter xts
#' @S3method filter xts
#' @importFrom xts is.xts
#' @return
filter.xts  <- function(.data, ...) {
  assertthat::assert_that(is.xts(.data))
  signature <- timetk::tk_get_timeseries_signature(index(.data))
  # browser()

  dots <- list(...)

  # cas ou l'on passe un iso
  if (length(dots) == 1){

    if (is.character(dots[[1]])){
            return(.data[dots[[1]]])
      }



  }


  signature %>% filter(...)
}
#
# timetk::tk_get_timeseries_signature(index(sample.xts))
#
# index(sample.xts)
# sample.xts %>% filter(month == 4)
# filter
#
# x <- 1:100
# filter(x, rep(1, 3))
# filter(x, rep(1, 3), sides = 1)
# filter(x, rep(1, 3), sides = 1, circular = TRUE)
#
# filter(presidents, rep(1, 3))