Add apply_names_sep() helper that uses glue

DavisVaughan · DavisVaughan · commit 1a73d35192cd · 2021-11-03T14:45:26.000-04:00
Part of #1185
diff --git a/R/utils.R b/R/utils.R
@@ -130,6 +130,10 @@ tidyr_new_list <- function(x) {
   x
 }
 
+apply_names_sep <- function(outer, inner, names_sep) {
+  as.character(glue("{outer}{names_sep}{inner}"))
+}
+
 check_present <- function(x) {
   arg <- ensym(x)
   if (missing(x)) {

Original file line number	Diff line number	Diff line change
`@@ -130,6 +130,10 @@ tidyr_new_list <- function(x) {`
`130`	`130`	`x`
`131`	`131`	`}`
`132`	`132`
	`133`	`+apply_names_sep <- function(outer, inner, names_sep) {`
	`134`	`+ as.character(glue("{outer}{names_sep}{inner}"))`
	`135`	`+}`
	`136`	`+`
`133`	`137`	`check_present <- function(x) {`
`134`	`138`	`arg <- ensym(x)`
`135`	`139`	`if (missing(x)) {`