P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 06:51:48 +02:00
Code Releases Activity

(v0.7.1.9056) mo and ab subsetting

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-08-14 14:57:06 +02:00
parent 7108454ba5
commit 920212e815
46 changed files with 144 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
R/ab.R
View File

@ -282,10 +282,42 @@ as.data.frame.ab <- function (x, ...) {
#' @exportMethod [.ab
#' @export
#' @noRd
"[.ab" <- function (x, ...) {
# this function is needed to preserve the "ab" class for any subsetting, like df %>% filter(...)
"[.ab" <- function(x, ...) {
y <- NextMethod()
structure(y, class = "ab")
attributes(y) <- attributes(x)
y
}
#' @exportMethod [<-.ab
#' @export
#' @noRd
"[<-.ab" <- function(value) {
y <- NextMethod()
attributes(y) <- attributes(value)
y
}
#' @exportMethod [[.ab
#' @export
#' @noRd
"[[.ab" <- function(x, ...) {
y <- NextMethod()
attributes(y) <- attributes(x)
y
}
#' @exportMethod [[<-.ab
#' @export
#' @noRd
"[[<-.ab" <- function(i, j, ..., value) {
y <- NextMethod()
attributes(y) <- attributes(value)
y
}
#' @exportMethod c.ab
#' @export
#' @noRd
c.ab <- function(x, ...) {
y <- NextMethod()
attributes(y) <- attributes(x)
y
}
#' @importFrom pillar type_sum