R/vctrs.R

In tidyverse/glue: Interpreted String Literals

Defines functions vec_cast.character.glue vec_cast.glue.character vec_cast.glue.glue vec_ptype2.character.glue vec_ptype2.glue.character vec_ptype2.glue.glue

# Registered in .onLoad()

vec_ptype2.glue.glue <- function(x, y, ...) {
  x
}
vec_ptype2.glue.character <- function(x, y, ...) {
  x
}
vec_ptype2.character.glue <- function(x, y, ...) {
  y
}

# Note order of class is the opposite as for ptype2
vec_cast.glue.glue <- function(x, to, ...) {
  x
}
vec_cast.glue.character <- function(x, to, ...) {
  as_glue(x)
}
vec_cast.character.glue <- function(x, to, ...) {
  unclass(x)
}