P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 14:01:55 +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/mo.R
View File

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