1
2# Registered in .onLoad()
3
4vec_ptype2.glue.glue <- function(x, y, ...) {
5  x
6}
7vec_ptype2.glue.character <- function(x, y, ...) {
8  x
9}
10vec_ptype2.character.glue <- function(x, y, ...) {
11  y
12}
13
14# Note order of class is the opposite as for ptype2
15vec_cast.glue.glue <- function(x, to, ...) {
16  x
17}
18vec_cast.glue.character <- function(x, to, ...) {
19  as_glue(x)
20}
21vec_cast.character.glue <- function(x, to, ...) {
22  unclass(x)
23}
24