Warning when printing SQL S4 column

[moodymudskipper]

# no problem
x <- tibble::tibble(A = DBI::SQL("a"))

# no problem
x$A
#> <SQL> a

# problem : we get a warning, though the tibble prints fine
x
#> Warning in class(x) <- c("glue", "character"): Setting class(x) to multiple
#> strings ("glue", "character", ...); result will no longer be an S4 object
#> # A tibble: 1 × 1
#>   A    
#>   <SQL>
#> 1 a

^{Created on 2022-08-31 by the reprex package (v2.0.1)}

[krlmlr]

Thanks. This is a pillar bug:

pillar::pillar(DBI::SQL("a"))
#> Warning in class(x) <- c("glue", "character"): Setting class(x) to multiple
#> strings ("glue", "character", ...); result will no longer be an S4 object
#> <pillar>
#> <SQL>
#> a

^{Created on 2022-12-04 with reprex v2.0.2}