Prefer glue_data() when data might be list-ish, not an actual environ…

…ment
JBGruber · Sep 19, 2024 · 7e9cc9d · 7e9cc9d
1 parent cbc323c
commit 7e9cc9d
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/convert.r b/R/convert.r
@@ -34,7 +34,7 @@ convert_http_to_at <- function(link,
       http_info$repo <- resolve_handle(http_info$repo, .token = .token)
     }
 
-    glue::glue("at://{repo}/{collection}/{rkey}", .envir = http_info)
+    glue::glue_data(http_info, "at://{repo}/{collection}/{rkey}")
 
   })
 
@@ -57,4 +57,3 @@ convert_at_to_http <- function(link) {
 
   })
 }
-