This is an S3 Method to return an object without the specified subset. sb_wo()/ sb2_wo() is essentially the inverse of sb_x/sb2_x.
Use sb_wo(x, ...) if x is an atomic object.
Use sb2_wo(x, ...) if x is a recursive object (i.e. list or data.frame-like).
Usage
sb_wo(x, ...)
# Default S3 method
sb_wo(x, i = NULL, ..., chkdup = getOption("squarebrackets.chkdup", FALSE))
# S3 method for class 'array'
sb_wo(
x,
s = NULL,
d = 1:ndim(x),
i = NULL,
...,
chkdup = getOption("squarebrackets.chkdup", FALSE)
)
sb2_wo(x, ...)
# Default S3 method
sb2_wo(
x,
i = NULL,
red = FALSE,
...,
chkdup = getOption("squarebrackets.chkdup", FALSE)
)
# S3 method for class 'array'
sb2_wo(
x,
s = NULL,
d = 1:ndim(x),
i = NULL,
red = FALSE,
...,
chkdup = getOption("squarebrackets.chkdup", FALSE)
)
# S3 method for class 'data.frame'
sb2_wo(
x,
s = NULL,
d = 1:2,
obs = NULL,
vars = NULL,
...,
chkdup = getOption("squarebrackets.chkdup", FALSE)
)Arguments
- x
- ...
- i, s, d, obs, vars
See squarebrackets_indx_args.
An empty index selection results in nothing being removed, and the entire object is returned.- chkdup
- red
Boolean, for recursive objects only, indicating if the result should be reduced.
Ifred = TRUE, selecting a single element will give the simplified result, like using[[]].
Ifred = FALSE, a list is always returned regardless of the number of elements.
![[for performance: set to FALSE]](figures/for_performance-set_to_FALSE-red.svg)
Examples
# atomic objects ====
obj <- matrix(1:16, ncol = 4)
colnames(obj) <- c("a", "b", "c", "a")
print(obj)
#> a b c a
#> [1,] 1 5 9 13
#> [2,] 2 6 10 14
#> [3,] 3 7 11 15
#> [4,] 4 8 12 16
sb_wo(obj, n(1:3), 1:ndim(obj))
#> a
#> [1,] 16
# above is equivalent to obj[-1:-3, -1:-3, drop = FALSE]
sb_wo(obj, i = \(x) x > 5)
#> [1] 1 2 3 4 5
# above is equivalent to obj[!obj > 5]
sb_wo(obj, n("a"), 2L)
#> b c
#> [1,] 5 9
#> [2,] 6 10
#> [3,] 7 11
#> [4,] 8 12
# above is equivalent to obj[, which(!colnames(obj) %in% "a")]
obj <- array(1:64, c(4,4,3))
print(obj)
#> , , 1
#>
#> [,1] [,2] [,3] [,4]
#> [1,] 1 5 9 13
#> [2,] 2 6 10 14
#> [3,] 3 7 11 15
#> [4,] 4 8 12 16
#>
#> , , 2
#>
#> [,1] [,2] [,3] [,4]
#> [1,] 17 21 25 29
#> [2,] 18 22 26 30
#> [3,] 19 23 27 31
#> [4,] 20 24 28 32
#>
#> , , 3
#>
#> [,1] [,2] [,3] [,4]
#> [1,] 33 37 41 45
#> [2,] 34 38 42 46
#> [3,] 35 39 43 47
#> [4,] 36 40 44 48
#>
sb_wo(obj, n(1, c(1, 3)), c(1, 3))
#> , , 1
#>
#> [,1] [,2] [,3] [,4]
#> [1,] 18 22 26 30
#> [2,] 19 23 27 31
#> [3,] 20 24 28 32
#>
# above is equivalent to obj[-1, , c(-1, -3), drop = FALSE]
sb_wo(obj, i = \(x)x > 5)
#> [1] 1 2 3 4 5
# above is equivalent to obj[!obj > 5]
#############################################################################
# lists ====
obj <- list(a = 1:10, b = letters[1:11], c = 11:20)
print(obj)
#> $a
#> [1] 1 2 3 4 5 6 7 8 9 10
#>
#> $b
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k"
#>
#> $c
#> [1] 11 12 13 14 15 16 17 18 19 20
#>
sb2_wo(obj, "a")
#> $b
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k"
#>
#> $c
#> [1] 11 12 13 14 15 16 17 18 19 20
#>
# above is equivalent to obj[which(!names(obj) %in% "a")]
sb2_wo(obj, 1) # obj[-1]
#> $b
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k"
#>
#> $c
#> [1] 11 12 13 14 15 16 17 18 19 20
#>
sb2_wo(obj, 1:2)
#> $c
#> [1] 11 12 13 14 15 16 17 18 19 20
#>
# above is equivalent to obj[seq_len(length(obj))[-1:-2]]
sb2_wo(obj, is.numeric, red = TRUE)
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k"
# above is equivalent to obj[[!sapply(obj, is.numeric)]] IF this returns a single element
obj <- list(a = 1:10, b = letters[1:11], c = letters)
sb2_wo(obj, is.numeric)
#> $b
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k"
#>
#> $c
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
#> [20] "t" "u" "v" "w" "x" "y" "z"
#>
# above is equivalent to obj[!sapply(obj, is.numeric)] # this time singular brackets?
# for recusive indexing, see sb2_rec()
obj <- rbind(
lapply(1:4, \(x)sample(c(TRUE, FALSE, NA))),
lapply(1:4, \(x)sample(1:10)),
lapply(1:4, \(x)rnorm(10)),
lapply(1:4, \(x)sample(letters))
)
colnames(obj) <- c("a", "b", "c", "a")
print(obj)
#> a b c a
#> [1,] logical,3 logical,3 logical,3 logical,3
#> [2,] integer,10 integer,10 integer,10 integer,10
#> [3,] numeric,10 numeric,10 numeric,10 numeric,10
#> [4,] character,26 character,26 character,26 character,26
sb2_wo(obj, n(1:3), 1:ndim(obj))
#> a
#> [1,] character,26
# above is equivalent to obj[1:3, 1:3, drop = FALSE]
sb2_wo(obj, i = is.numeric)
#> [[1]]
#> [1] FALSE NA TRUE
#>
#> [[2]]
#> [1] "s" "u" "e" "r" "j" "q" "z" "o" "k" "w" "b" "g" "l" "c" "h" "x" "d" "m" "f"
#> [20] "y" "t" "a" "n" "v" "i" "p"
#>
#> [[3]]
#> [1] FALSE NA TRUE
#>
#> [[4]]
#> [1] "j" "u" "n" "b" "d" "y" "o" "t" "q" "g" "a" "e" "l" "c" "p" "r" "v" "x" "w"
#> [20] "f" "s" "z" "k" "i" "m" "h"
#>
#> [[5]]
#> [1] NA FALSE TRUE
#>
#> [[6]]
#> [1] "j" "t" "m" "f" "c" "w" "i" "p" "q" "n" "k" "x" "r" "y" "h" "a" "e" "o" "s"
#> [20] "g" "b" "d" "v" "z" "l" "u"
#>
#> [[7]]
#> [1] FALSE TRUE NA
#>
#> [[8]]
#> [1] "c" "x" "v" "s" "n" "g" "w" "o" "k" "d" "h" "r" "y" "j" "e" "m" "t" "p" "u"
#> [20] "q" "a" "i" "l" "z" "f" "b"
#>
# above is equivalent to obj[sapply(obj, is.numeric)]
sb2_wo(obj, n(c("a", "a")), 2L)
#> b c
#> [1,] logical,3 logical,3
#> [2,] integer,10 integer,10
#> [3,] numeric,10 numeric,10
#> [4,] character,26 character,26
# above is equivalent to obj[, lapply(c("a", "a"), \(i) which(colnames(obj) == i)) |> unlist()]
obj <- array(as.list(1:64), c(4,4,3))
print(obj)
#> , , 1
#>
#> [,1] [,2] [,3] [,4]
#> [1,] 1 5 9 13
#> [2,] 2 6 10 14
#> [3,] 3 7 11 15
#> [4,] 4 8 12 16
#>
#> , , 2
#>
#> [,1] [,2] [,3] [,4]
#> [1,] 17 21 25 29
#> [2,] 18 22 26 30
#> [3,] 19 23 27 31
#> [4,] 20 24 28 32
#>
#> , , 3
#>
#> [,1] [,2] [,3] [,4]
#> [1,] 33 37 41 45
#> [2,] 34 38 42 46
#> [3,] 35 39 43 47
#> [4,] 36 40 44 48
#>
sb2_wo(obj, n(1, c(1, 3)), c(1, 3))
#> , , 1
#>
#> [,1] [,2] [,3] [,4]
#> [1,] 18 22 26 30
#> [2,] 19 23 27 31
#> [3,] 20 24 28 32
#>
# above is equivalent to obj[-1, , c(-1, -3), drop = FALSE]
sb2_wo(obj, i = \(x)x>5)
#> [[1]]
#> [1] 1
#>
#> [[2]]
#> [1] 2
#>
#> [[3]]
#> [1] 3
#>
#> [[4]]
#> [1] 4
#>
#> [[5]]
#> [1] 5
#>
# above is equivalent to obj[!sapply(obj, \(x) x > 5)]
#############################################################################
# data.frame-like objects ====
obj <- data.frame(a = 1:10, b = letters[1:10], c = 11:20, d = factor(letters[1:10]))
print(obj)
#> a b c d
#> 1 1 a 11 a
#> 2 2 b 12 b
#> 3 3 c 13 c
#> 4 4 d 14 d
#> 5 5 e 15 e
#> 6 6 f 16 f
#> 7 7 g 17 g
#> 8 8 h 18 h
#> 9 9 i 19 i
#> 10 10 j 20 j
sb2_wo(obj, n(1:3))
#> d
#> 1 d
#> 2 e
#> 3 f
#> 4 g
#> 5 h
#> 6 i
#> 7 j
# above is equivalent to obj[-1:-3, -1:-3, drop = FALSE]
sb2_wo(obj, obs = ~ (a > 5) & (c < 19), vars = is.numeric)
#> b d
#> 1 a a
#> 2 b b
#> 3 c c
#> 4 d d
#> 5 e e
#> 6 i i
#> 7 j j