dwww Home | Show directory contents | Find package

# vec_as_names() validates `repair`

    Code
      (expect_error(my_vec_as_names("x", my_repair = "foo"), "can't be \"foo\""))
    Output
      <error/rlang_error>
      Error in `my_vec_as_names()`:
      ! `my_repair` can't be "foo". See `?vctrs::vec_as_names`.
    Code
      (expect_error(my_vec_as_names(1, my_repair = 1), "string or a function"))
    Output
      <error/rlang_error>
      Error in `my_vec_as_names()`:
      ! `my_repair` must be a string or a function. See `?vctrs::vec_as_names`.

# vec_as_names() checks unique names

    Code
      (expect_error(my_vec_as_names(chr(NA), my_repair = "check_unique")))
    Output
      <error/rlang_error>
      Error:
      ! Names repair functions can't return `NA` values.
    Code
      (expect_error(my_vec_as_names(chr(""), my_repair = "check_unique")))
    Output
      <error/vctrs_error_names_cannot_be_empty>
      Error in `my_vec_as_names()`:
      ! Names can't be empty.
      x Empty name found at location 1.
    Code
      (expect_error(my_vec_as_names(chr("a", "a"), my_repair = "check_unique")))
    Output
      <error/vctrs_error_names_must_be_unique>
      Error in `my_vec_as_names()`:
      ! Names must be unique.
      x These names are duplicated:
        * "a" at locations 1 and 2.
      i Use argument `my_repair` to specify repair strategy.
    Code
      (expect_error(my_vec_as_names(chr("..1"), my_repair = "check_unique")))
    Output
      <error/vctrs_error_names_cannot_be_dot_dot>
      Error in `my_vec_as_names()`:
      ! Names can't be of the form `...` or `..j`.
      x These names are invalid:
        * "..1" at location 1.
    Code
      (expect_error(my_vec_as_names(chr("..."), my_repair = "check_unique")))
    Output
      <error/vctrs_error_names_cannot_be_dot_dot>
      Error in `my_vec_as_names()`:
      ! Names can't be of the form `...` or `..j`.
      x These names are invalid:
        * "..." at location 1.

# vec_as_names() accepts and checks repair function

    Code
      my_vec_as_names(c("", ""), my_repair = function(nms) "foo")
    Condition
      Error in `my_vec_as_names()`:
      ! Repaired names have length 1 instead of length 2.

# vec_as_names() is noisy by default

    Code
      vec_as_names(c("x", "x"), repair = "unique")
    Message
      New names:
      * `x` -> `x...1`
      * `x` -> `x...2`
    Output
      [1] "x...1" "x...2"
    Code
      vec_as_names(c("x", "x"), repair = "unique", quiet = TRUE)
    Output
      [1] "x...1" "x...2"
    Code
      (expect_error(my_vec_as_names(c("x", "x"), my_repair = "check_unique")))
    Output
      <error/vctrs_error_names_must_be_unique>
      Error in `my_vec_as_names()`:
      ! Names must be unique.
      x These names are duplicated:
        * "x" at locations 1 and 2.
      i Use argument `my_repair` to specify repair strategy.
    Code
      vec_as_names(c("1", "1"), repair = "unique_quiet")
    Output
      [1] "1...1" "1...2"
    Code
      vec_as_names(c("1", "1"), repair = "universal_quiet")
    Output
      [1] "...1...1" "...1...2"
    Code
      vec_as_names(c("1", "1"), repair = "unique_quiet", quiet = TRUE)
    Output
      [1] "1...1" "1...2"
    Code
      vec_as_names(c("1", "1"), repair = "universal_quiet", quiet = TRUE)
    Output
      [1] "...1...1" "...1...2"
    Code
      vec_as_names(c("1", "1"), repair = "unique_quiet", quiet = FALSE)
    Output
      [1] "1...1" "1...2"
    Code
      vec_as_names(c("1", "1"), repair = "universal_quiet", quiet = FALSE)
    Output
      [1] "...1...1" "...1...2"

# validate_minimal_names() checks names

    Code
      (expect_error(validate_minimal_names(1), "must return a character vector"))
    Output
      <error/rlang_error>
      Error:
      ! Names repair functions must return a character vector.
    Code
      (expect_error(validate_minimal_names(NULL), "can't return `NULL`"))
    Output
      <error/rlang_error>
      Error:
      ! Names repair functions can't return `NULL`.
    Code
      (expect_error(validate_minimal_names(chr(NA)), "can't return `NA` values"))
    Output
      <error/rlang_error>
      Error:
      ! Names repair functions can't return `NA` values.

# validate_unique() checks unique names

    Code
      (expect_error(validate_unique(chr(NA)), "`NA`"))
    Output
      <error/rlang_error>
      Error:
      ! Names repair functions can't return `NA` values.
    Code
      (expect_error(validate_unique(chr("")), class = "vctrs_error_names_cannot_be_empty")
      )
    Output
      <error/vctrs_error_names_cannot_be_empty>
      Error:
      ! Names can't be empty.
      x Empty name found at location 1.
    Code
      (expect_error(validate_unique(chr("a", "a")), class = "vctrs_error_names_must_be_unique")
      )
    Output
      <error/vctrs_error_names_must_be_unique>
      Error:
      ! Names must be unique.
      x These names are duplicated:
        * "a" at locations 1 and 2.
    Code
      (expect_error(validate_unique(chr("..1")), class = "vctrs_error_names_cannot_be_dot_dot")
      )
    Output
      <error/vctrs_error_names_cannot_be_dot_dot>
      Error:
      ! Names can't be of the form `...` or `..j`.
      x These names are invalid:
        * "..1" at location 1.
    Code
      (expect_error(validate_unique(chr("...")), class = "vctrs_error_names_cannot_be_dot_dot")
      )
    Output
      <error/vctrs_error_names_cannot_be_dot_dot>
      Error:
      ! Names can't be of the form `...` or `..j`.
      x These names are invalid:
        * "..." at location 1.

# vec_set_names() errors with bad `names`

    Code
      (expect_error(vec_set_names(1, 1), "character vector, not a double"))
    Output
      <error/rlang_error>
      Error in `vec_set_names()`:
      ! `names` must be a character vector, not a double.
    Code
      (expect_error(vec_set_names(1, c("x", "y")), "The size of `names`, 2"))
    Output
      <error/rlang_error>
      Error in `vec_set_names()`:
      ! The size of `names`, 2, must be the same as the size of `x`, 1.

# unique_names() and as_unique_names() are verbose or silent

    Code
      unique_names(1:2)
    Message
      New names:
      * `` -> `...1`
      * `` -> `...2`
    Output
      [1] "...1" "...2"

---

    Code
      as_unique_names(c("", ""))
    Message
      New names:
      * `` -> `...1`
      * `` -> `...2`
    Output
      [1] "...1" "...2"

# message

    Code
      as_universal_names(c("a b", "b c"))
    Message
      New names:
      * `a b` -> `a.b`
      * `b c` -> `b.c`
    Output
      [1] "a.b" "b.c"

# messages by default

    Code
      vec_repair_names(set_names(1, "a:b"), "universal")
    Message
      New names:
      * `a:b` -> `a.b`
    Output
      a.b 
        1 

---

    Code
      vec_repair_names(set_names(1, "a:b"), ~ make.names(.))
    Message
      New names:
      * `a:b` -> `a.b`
    Output
      a.b 
        1 

# NULL name specs works with scalars

    Code
      (expect_error(vec_c(foo = c(a = 1, b = 2)), "vector of length > 1"))
    Output
      <error/rlang_error>
      Error in `vec_c()`:
      ! Can't merge the outer name `foo` with a vector of length > 1.
      Please supply a `.name_spec` specification.
    Code
      (expect_error(vec_c(foo = 1:2), "vector of length > 1"))
    Output
      <error/rlang_error>
      Error in `vec_c()`:
      ! Can't merge the outer name `foo` with a vector of length > 1.
      Please supply a `.name_spec` specification.
    Code
      (expect_error(vec_c(x = c(xx = 1)), "named vector"))
    Output
      <error/rlang_error>
      Error in `vec_c()`:
      ! Can't merge the outer name `x` with a named vector.
      Please supply a `.name_spec` specification.

# vec_as_names() uses internal error if `repair_arg` is not supplied

    Code
      (expect_error(vec_as_names("", repair = "foobar", call = quote(tilt()))))
    Output
      <error/rlang_error>
      Error in `vec_as_names()`:
      ! `repair` can't be "foobar". See `?vctrs::vec_as_names`.
    Code
      (expect_error(vec_as_names("", repair = env(), call = quote(tilt()))))
    Output
      <error/rlang_error>
      Error in `vec_as_names()`:
      ! `repair` must be a string or a function. See `?vctrs::vec_as_names`.

Generated by dwww version 1.15 on Sun Jun 16 08:49:07 CEST 2024.