R: 我可以更新 magrittr 管道中对象的 class 吗？

Question

我有一段代码可以更新对象的 class。但是我必须打破下面的代码来分配 class。有没有一种优雅的方式来分配 class 但继续管道，这样我就有一个管道一直到最终结果？我怀疑 {purrr} 里可能有东西？

library(disk.frame)
library(dplyr)
library(tidyquery)

a = nycflights13::airports %>%
  as.disk.frame

class(a) <- c(class(a), "data.frame")

a %>% 
  query("SELECT name, lat, lon ORDER BY lat DESC LIMIT 5")

Answer 1

当然，你可以只使用 "class<-"():

library(dplyr)

x <- 1:10 %>%
    "class<-"("foo")
x
#  [1]  1  2  3  4  5  6  7  8  9 10
# attr(,"class")
# [1] "foo"

详情

通常，在 R 中，当您可以分配给函数的输出时，例如class(x) <- "foo"，您使用的是 "replacement function"，例如"class<-"()。可以在 here.

上找到有关 Stack Overflow 的很好的讨论

Answer 2

使用包 data.table 中的 setattr():

library(data.table)
x <- 1:10
x %>% setattr("class", c(class(x), "xiaodai's special"))
x

 [1]  1  2  3  4  5  6  7  8  9 10
attr(,"class")
[1] "integer"           "xiaodai's special"

R: 我可以更新 magrittr 管道中对象的 class 吗？

R: can I update the class of a an object in a magrittr pipe?

r

magrittr

purrr

详情