我正试着把一个复杂的物体打印出来。每个对象都有一个id号存储在names
属性中,以便于访问,我想在tibble中显示。由于某些原因,names
属性在format()
中丢失(参见下面的示例)。
format.foo <- function(x, ...) {
print(attributes(x))
sprintf("<%s>", names(x))
}
df <- tibble::tibble(x = {
out <- structure(letters[1:5], bar = "zig", class = "foo")
stats::setNames(out, 1:5)
})
df
#> $bar
#> [1] "zig"
#>
#> $class
#> [1] "foo"
#>
#> # A tibble: 5 × 1
#> x
#> <foo>
#> 1 x
#> 2 <foo>
#> 3 x
#> 4 <foo>
#> 5 x
字符串
由reprex package(v2.0.1)于2023 - 07 - 16创建
有没有办法在format()
中检索names
?使用自定义属性并不理想,因为每次修改或子集化对象时,它都会强制我绑定回属性。
1条答案
按热度按时间xytpbqjk1#
像这样吗
字符串
型
format.data.frame
显式格式化(它逐列应用类特定的格式):