1# nocov start 2.onLoad <- function(...) { 3 s3_register("testthat::compare", "glue") 4 5 s3_register("waldo::compare_proxy", "glue") 6 7 s3_register("vctrs::vec_ptype2", "glue.glue") 8 s3_register("vctrs::vec_ptype2", "character.glue") 9 s3_register("vctrs::vec_ptype2", "glue.character") 10 s3_register("vctrs::vec_cast", "glue.glue") 11 s3_register("vctrs::vec_cast", "character.glue") 12 s3_register("vctrs::vec_cast", "glue.character") 13 14 if (isNamespaceLoaded("knitr")) { 15 knitr::knit_engines$set(glue = eng_glue, glue_sql = eng_glue_sql, gluesql = eng_glue_sql) 16 } else { 17 setHook(packageEvent("knitr", "onLoad"), function(...) { 18 knitr::knit_engines$set(glue = eng_glue, glue_sql = eng_glue_sql, gluesql = eng_glue_sql) 19 }) 20 } 21 22 invisible() 23} 24#nocov end 25