Add trim param to str_glue() (#562)

Fixes #538
tidyverse · Aug 15, 2024 · 83a72a1 · 83a72a1
1 parent d681e45
commit 83a72a1
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 3 deletions.
diff --git a/R/glue.R b/R/glue.R
@@ -34,8 +34,8 @@
 #'
 #' # `str_glue_data()` is useful in data pipelines
 #' mtcars %>% str_glue_data("{rownames(.)} has {hp} hp")
-str_glue <- function(..., .sep = "", .envir = parent.frame()) {
-  glue::glue(..., .sep = .sep, .envir = .envir)
+str_glue <- function(..., .sep = "", .envir = parent.frame(), .trim = TRUE) {
+  glue::glue(..., .sep = .sep, .envir = .envir, .trim = .trim)
 }
 
 #' @export

diff --git a/man/str_glue.Rd b/man/str_glue.Rd
diff --git a/tests/testthat/test-glue.R b/tests/testthat/test-glue.R
@@ -5,3 +5,9 @@ test_that("verify wrapper is functional", {
   expect_equal(as.character(str_glue_data(df, "a {b}", b = "b")), "a b")
 })
 
+test_that("verify trim is functional", {
+  expect_equal(as.character(str_glue("L1\t \n  \tL2")), "L1\t \nL2")
+
+  expect_equal(as.character(str_glue("L1\t \n  \tL2", .trim = FALSE)), "L1\t \n  \tL2")
+
+})