From 874d5a8ae598a14dea2444fa889c7945a84c8b7a Mon Sep 17 00:00:00 2001 From: Nikolas Ivan Krieger Date: Sun, 16 Nov 2025 15:43:17 -0500 Subject: [PATCH 1/2] fix embrace operator printing; add test --- R/call.R | 1 + tests/testthat/test-deparse.R | 1 + 2 files changed, 2 insertions(+) diff --git a/R/call.R b/R/call.R index 33523f857..08e2e49b0 100644 --- a/R/call.R +++ b/R/call.R @@ -332,6 +332,7 @@ call_print_fine_type <- function(call) { `repeat` = , `if` = "control", `(` = , + `{{` = , `{` = "delim", `[` = , `[[` = "subset", diff --git a/tests/testthat/test-deparse.R b/tests/testthat/test-deparse.R index bc2bd5092..210670c9e 100644 --- a/tests/testthat/test-deparse.R +++ b/tests/testthat/test-deparse.R @@ -740,6 +740,7 @@ test_that("as_label() supports special objects", { expect_identical(as_label(quo(foo)), "foo") expect_identical(as_label(quo(foo(!!quo(bar)))), "foo(bar)") expect_identical(as_label(~foo), "~foo") + expect_identical(as_label(quote({{foo}})), "{{foo}}") expect_identical(as_label(NULL), "NULL") }) From ccd22a7d99c7e731697ef89ff5e15b7081e9f4e9 Mon Sep 17 00:00:00 2001 From: Nikolas Ivan Krieger Date: Sun, 16 Nov 2025 17:58:58 -0500 Subject: [PATCH 2/2] Accommodate testthat's tidy eval --- tests/testthat/test-deparse.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-deparse.R b/tests/testthat/test-deparse.R index 210670c9e..dffff9efb 100644 --- a/tests/testthat/test-deparse.R +++ b/tests/testthat/test-deparse.R @@ -740,7 +740,7 @@ test_that("as_label() supports special objects", { expect_identical(as_label(quo(foo)), "foo") expect_identical(as_label(quo(foo(!!quo(bar)))), "foo(bar)") expect_identical(as_label(~foo), "~foo") - expect_identical(as_label(quote({{foo}})), "{{foo}}") + expect_identical(as_label(call("{", quote({x}))), "{ ... }") expect_identical(as_label(NULL), "NULL") })