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..dffff9efb 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(call("{", quote({x}))), "{ ... }") expect_identical(as_label(NULL), "NULL") })