Nothing
Code
(expect_error(vec_rbind(x_int, x_chr), class = "vctrs_error_incompatible_type"))
Output
<error/vctrs_error_ptype2>
Error in `vec_rbind()`:
! Can't combine `..1$x` <integer> and `..2$x` <character>.
Code
(expect_error(vec_rbind(x_int, x_chr, .error_call = call("foo")), class = "vctrs_error_incompatible_type")
)
Output
<error/vctrs_error_ptype2>
Error in `foo()`:
! Can't combine `..1$x` <integer> and `..2$x` <character>.
Code
(expect_error(vec_rbind(x_int, x_chr, .ptype = x_chr, .error_call = call("foo")),
class = "vctrs_error_incompatible_type"))
Output
<error/vctrs_error_cast>
Error in `foo()`:
! Can't convert `..1$x` <integer> to match type of `x` <character>.
Code
out <- vec_rbind(data_frame(...1 = 1), 1)
Message
New names:
* `` -> `...1`
vec_rbind()
(#229)Code
(expect_error(vec_rbind(.name_repair = "none"), "can't be `\"none\"`"))
Output
<error/rlang_error>
Error:
! `.name_repair` can't be `"none"`.
It must be one of `"unique"`, `"universal"`, or `"check_unique"`.
Code
(expect_error(vec_rbind(.name_repair = "minimal"), "can't be `\"minimal\"`"))
Output
<error/rlang_error>
Error:
! `.name_repair` can't be `"minimal"`.
It must be one of `"unique"`, `"universal"`, or `"check_unique"`.
Code
(expect_error(vec_rbind(list(a = 1, a = 2), .name_repair = "check_unique"),
class = "vctrs_error_names_must_be_unique"))
Output
<error/vctrs_error_names_must_be_unique>
Error in `vec_rbind()`:
! Names must be unique.
x These names are duplicated:
* "a" at locations 1 and 2.
Code
res_unique <- vec_rbind(c(x = 1, x = 2), c(x = 3, x = 4), .name_repair = "unique_quiet")
res_universal <- vec_rbind(c(`if` = 1, `in` = 2), c(`if` = 3, `for` = 4),
.name_repair = "universal_quiet")
Code
res_unique <- vec_cbind(x = 1, x = 2, .name_repair = "unique_quiet")
res_universal <- vec_cbind(`if` = 1, `in` = 2, .name_repair = "universal_quiet")
Code
(expect_error(vec_rbind(array(NA, c(1, 1, 1)))))
Output
<error/rlang_error>
Error in `vec_rbind()`:
! Can't bind arrays.
Code
(expect_error(vec_rbind(array(NA, c(1, 1, 1)), .error_call = call("foo"))))
Output
<error/rlang_error>
Error in `foo()`:
! Can't bind arrays.
Code
(expect_error(vec_rbind(foo = df1, df2, .names_to = NULL), "specification"))
Output
<error/rlang_error>
Error in `vec_rbind()`:
! Can't merge the outer name `foo` with a vector of length > 1.
Please supply a `.name_spec` specification.
Code
(expect_error(vec_cbind(foobar(list()))))
Output
<error/vctrs_error_scalar_type>
Error in `vec_cbind()`:
! `..1` must be a vector, not a <vctrs_foobar> object.
Code
(expect_error(vec_cbind(foobar(list()), .error_call = call("foo"))))
Output
<error/vctrs_error_scalar_type>
Error in `foo()`:
! `..1` must be a vector, not a <vctrs_foobar> object.
Code
(expect_error(vec_cbind(a = 1:2, b = int())))
Output
<error/vctrs_error_incompatible_size>
Error in `vec_cbind()`:
! Can't recycle `a` (size 2) to match `b` (size 0).
Code
(expect_error(vec_cbind(a = 1:2, b = int(), .error_call = call("foo"))))
Output
<error/vctrs_error_incompatible_size>
Error in `foo()`:
! Can't recycle `a` (size 2) to match `b` (size 0).
Code
(expect_named(vec_cbind(x = 1, x = 1), c("x...1", "x...2")))
Message
New names:
* `x` -> `x...1`
* `x` -> `x...2`
Output
x...1 x...2
1 1 1
Code
(expect_named(vec_cbind(data.frame(x = 1), data.frame(x = 1)), c("x...1",
"x...2")))
Message
New names:
* `x` -> `x...1`
* `x` -> `x...2`
Output
x...1 x...2
1 1 1
vec_cbind()
(#227)Code
(expect_error(vec_cbind(a = 1, a = 2, .name_repair = "none"),
"can't be `\"none\"`"))
Output
<error/rlang_error>
Error:
! `.name_repair` can't be `"none"`.
It must be one of `"unique"`, `"universal"`, `"check_unique"`, or `"minimal"`.
Code
(expect_error(vec_cbind(a = 1, a = 2, .name_repair = "check_unique"), class = "vctrs_error_names_must_be_unique")
)
Output
<error/vctrs_error_names_must_be_unique>
Error in `vec_cbind()`:
! Names must be unique.
x These names are duplicated:
* "a" at locations 1 and 2.
.names_to
to vec_rbind()
(#229)Code
(expect_error(vec_rbind(.names_to = letters)))
Output
<error/rlang_error>
Error in `vec_rbind()`:
! `.names_to` must be `NULL`, a string, or an `rlang::zap()` object.
Code
(expect_error(vec_rbind(.names_to = 10)))
Output
<error/rlang_error>
Error in `vec_rbind()`:
! `.names_to` must be `NULL`, a string, or an `rlang::zap()` object.
Code
(expect_error(vec_rbind(.names_to = letters, .error_call = call("foo"))))
Output
<error/rlang_error>
Error in `foo()`:
! `.names_to` must be `NULL`, a string, or an `rlang::zap()` object.
Code
(expect_error(vec_cbind(a)))
Output
<error/rlang_error>
Error in `vec_cbind()`:
! Can't bind arrays.
Code
(expect_error(vec_cbind(a, .error_call = call("foo"))))
Output
<error/rlang_error>
Error in `foo()`:
! Can't bind arrays.
Code
(expect_error(vec_cbind(x = a)))
Output
<error/rlang_error>
Error in `vec_cbind()`:
! Can't bind arrays.
Code
vec_rbind(1, 2)
Message
New names:
* `` -> `...1`
New names:
* `` -> `...1`
Output
...1
1 1
2 2
Code
vec_rbind(1, 2, .names_to = NULL)
Message
New names:
* `` -> `...1`
New names:
* `` -> `...1`
Output
...1
1 1
2 2
Code
vec_rbind(1, 2, ...10 = 3)
Message
New names:
* `` -> `...1`
New names:
* `` -> `...1`
New names:
* `` -> `...1`
Output
...1
1 1
2 2
3 3
Code
vec_rbind(1, 2, ...10 = 3, .names_to = NULL)
Message
New names:
* `` -> `...1`
New names:
* `` -> `...1`
New names:
* `` -> `...1`
Output
...1
...1 1
...2 2
...3 3
Code
vec_rbind(a = 1, b = 2)
Message
New names:
* `` -> `...1`
New names:
* `` -> `...1`
Output
...1
1 1
2 2
Code
vec_rbind(a = 1, b = 2, .names_to = NULL)
Message
New names:
* `` -> `...1`
New names:
* `` -> `...1`
Output
...1
a 1
b 2
Code
vec_rbind(c(a = 1), c(b = 2))
Output
a b
1 1 NA
2 NA 2
Code
vec_rbind(c(a = 1), c(b = 2), .names_to = NULL)
Output
a b
1 1 NA
2 NA 2
Code
vec_rbind(df, df)
Output
mpg
1 21.0
2 21.0
3 22.8
4 21.0
5 21.0
6 22.8
Code
vec_rbind(mtcars[1:4, ], mtcars[1:3, ])
Output
mpg cyl disp hp drat wt qsec vs am gear carb
Mazda RX4...1 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
Mazda RX4 Wag...2 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
Datsun 710...3 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
Mazda RX4...5 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
Mazda RX4 Wag...6 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
Datsun 710...7 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
Code
vec_cbind(1, 2)
Message
New names:
* `` -> `...1`
* `` -> `...2`
Output
...1 ...2
1 1 2
Code
vec_cbind(1, 2, ...10 = 3)
Message
New names:
* `` -> `...1`
* `` -> `...2`
* `...10` -> `...3`
Output
...1 ...2 ...3
1 1 2 3
Code
vec_cbind(a = 1, b = 2)
Output
a b
1 1 2
Code
vec_cbind(c(a = 1), c(b = 2))
Message
New names:
* `` -> `...1`
* `` -> `...2`
Output
...1 ...2
1 1 2
Code
(expect_error(vec_rbind(df, df, .name_repair = "check_unique"), class = "vctrs_error_names_must_be_unique")
)
Output
<error/vctrs_error_names_must_be_unique>
Error in `vec_rbind()`:
! Names must be unique.
x These names are duplicated:
* "x" at locations 1 and 2.
Code
(expect_error(vec_rbind(df, df, .name_repair = "check_unique", .error_call = call(
"foo")), class = "vctrs_error_names_must_be_unique"))
Output
<error/vctrs_error_names_must_be_unique>
Error in `foo()`:
! Names must be unique.
x These names are duplicated:
* "x" at locations 1 and 2.
Code
x <- structure(foobar(1), attr_foo = "foo")
y <- structure(foobar(2), attr_bar = "bar")
(expect_error(vec_rbind(set_names(x, "x"), set_names(y, "x")), class = "vctrs_error_incompatible_type")
)
Output
<error/vctrs_error_ptype2>
Error in `vec_rbind()`:
! Can't combine `..1` <vctrs_foobar> and `..2` <vctrs_foobar>.
x Some attributes are incompatible.
i The author of the class should implement vctrs methods.
i See <https://vctrs.r-lib.org/reference/faq-error-incompatible-attributes.html>.
Code
joe <- .Counts(1L, name = "Joe")
jane <- .Counts(2L, name = "Jane")
(expect_error(vec_rbind(set_names(joe, "x"), set_names(jane, "y")), class = "vctrs_error_incompatible_type")
)
Output
<error/vctrs_error_ptype2>
Error in `vec_rbind()`:
! Can't combine `..1` <vctrs_Counts> and `..2` <vctrs:::common_class_fallback>.
.names_to
is suppliedCode
(expect_error(vec_rbind(foo = c(x = 1), .names_to = "id", .name_spec = zap())))
Output
<error/rlang_error>
Error in `vec_rbind()`:
! Can't zap outer names when `.names_to` is supplied.
Code
(expect_error(vec_rbind(foo = c(x = 1), .names_to = "id", .name_spec = zap(),
.error_call = call("foo"))))
Output
<error/rlang_error>
Error in `foo()`:
! Can't zap outer names when `.names_to` is supplied.
Code
ints <- rep(list(1L), 100)
named_ints <- rep(list(set_names(1:3, letters[1:3])), 100)
# Integers as rows
suppressMessages(with_memory_prof(vec_rbind_list(ints)))
Output
[1] 2.79KB
Code
suppressMessages(with_memory_prof(vec_rbind_list(named_ints)))
Output
[1] 3.66KB
Code
# Data frame with named columns
df <- data_frame(x = set_names(as.list(1:2), c("a", "b")), y = set_names(1:2, c(
"A", "B")), z = data_frame(Z = set_names(1:2, c("Za", "Zb"))))
dfs <- rep(list(df), 100)
with_memory_prof(vec_rbind_list(dfs))
Output
[1] 10.4KB
Code
# Data frame with rownames (non-repaired, non-recursive case)
df <- data_frame(x = 1:2)
dfs <- rep(list(df), 100)
dfs <- map2(dfs, seq_along(dfs), set_rownames_recursively)
with_memory_prof(vec_rbind_list(dfs))
Output
[1] 7.68KB
Code
# Data frame with rownames (repaired, non-recursive case)
dfs <- map(dfs, set_rownames_recursively)
with_memory_prof(vec_rbind_list(dfs))
Output
[1] 13.8KB
Code
# Data frame with rownames (non-repaired, recursive case) (#1217)
df <- data_frame(x = 1:2, y = data_frame(x = 1:2))
dfs <- rep(list(df), 100)
dfs <- map2(dfs, seq_along(dfs), set_rownames_recursively)
with_memory_prof(vec_rbind_list(dfs))
Output
[1] 13KB
Code
# Data frame with rownames (repaired, recursive case) (#1217)
dfs <- map(dfs, set_rownames_recursively)
with_memory_prof(vec_rbind_list(dfs))
Output
[1] 25.3KB
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.