# data frames print nicely
Code
vec_ptype_show(mtcars)
Output
Prototype: data.frame<
mpg : double
cyl : double
disp: double
hp : double
drat: double
wt : double
qsec: double
vs : double
am : double
gear: double
carb: double
>
---
Code
vec_ptype_show(iris)
Output
Prototype: data.frame<
Sepal.Length: double
Sepal.Width : double
Petal.Length: double
Petal.Width : double
Species : factor<fb977>
>
# embedded data frames print nicely
Code
vec_ptype_show(df)
Output
Prototype: data.frame<
x: integer
a:
data.frame<
a: integer
b: character
>
b: list_of<double>
c:
list_of<
data.frame<
x: integer
y: character
>
>
>
# `x` must be a list
Code
(expect_error(new_data_frame(1), "`x` must be a list"))
Output
<error/rlang_error>
Error:
! `x` must be a list
# if supplied, `n` must be an integer of size 1
Code
(expect_error(new_data_frame(n = c(1L, 2L)), "must be an integer of size 1"))
Output
<error/rlang_error>
Error in `new_data_frame()`:
! `n` must be an integer of size 1.
Code
(expect_error(new_data_frame(n = "x"), "must be an integer of size 1"))
Output
<error/rlang_error>
Error in `new_data_frame()`:
! `n` must be an integer of size 1.
# if supplied, `n` can't be negative or missing (#1477)
Code
(expect_error(new_data_frame(n = -1L)))
Output
<error/rlang_error>
Error in `new_data_frame()`:
! `n` can't be negative.
Code
(expect_error(new_data_frame(n = NA_integer_)))
Output
<error/rlang_error>
Error in `new_data_frame()`:
! `n` can't be missing.
# `class` must be a character vector
Code
(expect_error(new_data_frame(class = 1), "must be NULL or a character vector"))
Output
<error/rlang_error>
Error:
! `class` must be NULL or a character vector
# data_frame() and df_list() report error context
Code
(expect_error(data_frame(a = 1, a = 1)))
Output
<error/vctrs_error_names_must_be_unique>
Error in `data_frame()`:
! Names must be unique.
x These names are duplicated:
* "a" at locations 1 and 2.
i Use argument `.name_repair` to specify repair strategy.
Code
(expect_error(data_frame(a = 1, a = 1, .error_call = call("foo"))))
Output
<error/vctrs_error_names_must_be_unique>
Error in `foo()`:
! Names must be unique.
x These names are duplicated:
* "a" at locations 1 and 2.
i Use argument `.name_repair` to specify repair strategy.
Code
(expect_error(data_frame(a = 1:2, b = int())))
Output
<error/vctrs_error_incompatible_size>
Error in `data_frame()`:
! Can't recycle `a` (size 2) to match `b` (size 0).
Code
(expect_error(data_frame(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_error(df_list(a = 1, a = 1)))
Output
<error/vctrs_error_names_must_be_unique>
Error in `df_list()`:
! Names must be unique.
x These names are duplicated:
* "a" at locations 1 and 2.
i Use argument `.name_repair` to specify repair strategy.
Code
(expect_error(df_list(a = 1, a = 1, .error_call = call("foo"))))
Output
<error/vctrs_error_names_must_be_unique>
Error in `foo()`:
! Names must be unique.
x These names are duplicated:
* "a" at locations 1 and 2.
i Use argument `.name_repair` to specify repair strategy.
Code
(expect_error(df_list(a = 1:2, b = int())))
Output
<error/vctrs_error_incompatible_size>
Error in `df_list()`:
! Can't recycle `a` (size 2) to match `b` (size 0).
Code
(expect_error(df_list(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).
# input is tidy recycled
Code
expect_error(data_frame(1:2, 1:3), class = "vctrs_error_incompatible_size")
# `.unpack` is validated
Code
df_list(.unpack = 1)
Condition
Error in `df_list()`:
! `.unpack` must be `TRUE` or `FALSE`.
---
Code
df_list(.unpack = c(TRUE, FALSE))
Condition
Error in `df_list()`:
! `.unpack` must be `TRUE` or `FALSE`.
# `.name_repair` can be quiet
Code
dfl_unique <- df_list(1, 2, .name_repair = "unique_quiet")
dfl_universal <- df_list(`if` = 1, `in` = 2, .name_repair = "universal_quiet")
df_unique <- data_frame(1, 2, .name_repair = "unique_quiet")
df_universal <- data_frame(`if` = 1, `in` = 2, .name_repair = "universal_quiet")
# data frame fallback handles column types (#999)
Code
local_error_call(call("my_function"))
(expect_error(vec_ptype2(df1, df3), class = "vctrs_error_incompatible_type"))
Output
<error/vctrs_error_ptype2>
Error in `my_function()`:
! Can't combine `df1$x` <double> and `df3$x` <character>.
Code
(expect_error(vec_ptype2(df3, df1), class = "vctrs_error_incompatible_type"))
Output
<error/vctrs_error_ptype2>
Error in `my_function()`:
! Can't combine `df3$x` <character> and `df1$x` <double>.
Code
(expect_error(vec_cast(df2, df1), class = "vctrs_error_incompatible_type"))
Output
<error/vctrs_error_cast_lossy_dropped>
Error in `my_function()`:
! Can't convert from `df2` <vctrs_foobar<
x: double
y: double
>> to <vctrs_foobar<x:double>> due to loss of precision.
Generated by dwww version 1.15 on Sat May 18 09:38:54 CEST 2024.