如何使用 R vctrs 包构建一个可以与 c() 结合的对象

我试图了解如何用向量构建对象。我认为这很简单，但是当我在我的对象上使用 c() 时遇到了麻烦。

我们的对象有两个属性，x 和描述符，在本例中都是字符串（我的对象将具有不同类型的属性）。我们构建了一个构造函数 new_toy_vector。我还没有在这个例子中构建一个便利的函数。

new_toy_vector <- function(
  x = character(),
  descriptor = character()) {

  vctrs::vec_assert(x,character())
  vctrs::vec_assert(descriptor, character())

  vctrs::new_vctr(x,
                  descriptor = descriptor,
                  class = "toy_vector")
}



format.toy_vector <- function(x, ...) {
  paste0(vctrs::vec_data(x)," is ", attr(x, "descriptor"))
}

obj_print_data.toy_vector <- function(x) {
  cat(format(x), sep = "\n")
}

c(new_toy_vector("Hello", "Foo"), new_toy_vector("World", "Bar"))
#> Error: No common type for `..1` <toy_vector> and `..2` <toy_vector>.

^{Created on 2020-04-26 by the reprex package https://reprex.tidyverse.org (v0.3.0)}

然后，我尝试对其自身创建强制转换，除非由于某种原因未定义默认方法：

> vec_ptype2.toy_vector.toy_vector <- function(x, y, ...) new_toy_vector()
> c(new_toy_vector("Hello", "Foo"), new_toy_vector("World", "Bar"))
Error: Can't convert <toy_vector> to <toy_vector>.

我有什么遗漏或误解的想法吗？为什么我不能合并示例中的两个对象？

通常，当对象被子集化时，属性不会被子集化，这不是规则，“名称”属性是一个突出的例子，它不遵循这种做法。要创建一个行为类似于“名称”的属性，您必须跳过障碍，并且{vctrs}旨在为您简化此类任务。

我们这样做的方式是{vctrs}是通过使用records https://vctrs.r-lib.org/articles/s3-vector.html，我们不需要属性：

记录样式对象使用等长向量列表来表示对象的各个组件。最好的例子是 POSIXlt，它的底层是一个包含 11 个字段的列表，例如年、月和日。记录样式类重写 length() 和子集方法以隐藏此实现细节。

使用上面链接中的示例作为模板，我们可以实现您的案例：

new_toy_vector <- function(
  value = character(),
  descriptor = character()) {
  vctrs::vec_assert(value,character())
  vctrs::vec_assert(descriptor, character())
  vctrs::new_rcrd(list(value = value, descriptor = descriptor), class = "toy_vector")
}


format.toy_vector <- function(x, ...) {
  value <- vctrs::field(x, "value")
  descriptor <- vctrs::field(x, "descriptor")
  paste0('"', value," is ", descriptor, '"')
}

v1 <- new_toy_vector(
  c("Hello", "World"), 
  c("Foo", "Bar"))

v2 <- c(
  new_toy_vector("Hello", "Foo"), 
  new_toy_vector("World", "Bar"))

v1
#> <toy_vector[2]>
#> [1] "Hello is Foo" "World is Bar"

identical(v1, v2)
#> [1] TRUE

v2[2]
#> <toy_vector[1]>
#> [1] "World is Bar"

^{Created on 2021-01-23 by the reprex package https://reprex.tidyverse.org (v0.3.0)}

请注意，我们不需要创建强制方法，在这种情况下，记录的默认强制方法就足够了。