draft function

r-lib · Oct 7, 2024 · df2a36c · df2a36c
1 parent 6e5e4c3
commit df2a36c
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/label-glue.R b/R/label-glue.R
@@ -0,0 +1,8 @@
+
+label_glue <- function(pattern = "{x}", ..., .envir = caller_env()) {
+  args <- list2(...)
+  force_all(pattern, .envir)
+  function(x) {
+    inject(glue::glue_data(list(x = x), pattern, !!!args, .envir = .envir))
+  }
+}