#' @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))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.