Surround calls in ``

hadley · Apr 20, 2016 · 21b51a4 · 21b51a4
1 parent ca2f8e5
commit 21b51a4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/expr.R b/R/expr.R
@@ -44,7 +44,7 @@ expr_label <- function(x) {
       dot_call <- call_new(x[[1]], quote(...))
       chr <- paste(deparse(dot_call), collapse = "\n")
     }
-    chr
+    paste0("`", chr, "`")
   }
 }
 

diff --git a/tests/testthat/test-expr.R b/tests/testthat/test-expr.R
@@ -46,6 +46,6 @@ test_that("converts atomics to strings", {
 })
 
 test_that("truncates long calls", {
-  expect_equal(expr_label({ a + b }), "{\n    ...\n}")
+  expect_equal(expr_label({ a + b }), "`{\n    ...\n}`")
 })