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