Drop unnecessary namespacing; use the helpers

Author: jennybc

R/use_github_file.R

@@ -136,7 +136,7 @@ parse_file_url <- function(x) {
   out$repo_spec <- make_spec(owner = dat$repo_owner, repo = dat$repo_name)
   out$path <- dat_fragment$path
   out$ref <- dat_fragment$ref
-  out$host <- as.character(glue("https://{dat$host}"))
+  out$host <- glue_chr("https://{dat$host}")
 
   out
 }

R/utils-glue.R

@@ -1,9 +1,9 @@
 # wrappers that apply as.character() to glue functions
 
 glue_chr <- function(...) {
-  as.character(glue::glue(..., .envir = parent.frame(1)))
+  as.character(glue(..., .envir = parent.frame(1)))
 }
 
 glue_data_chr <- function(.x, ...) {
-  as.character(glue::glue_data(.x = .x, ..., .envir = parent.frame(1)))
+  as.character(glue_data(.x = .x, ..., .envir = parent.frame(1)))
 }