Update snapshots (#1722)

* Update snapshots

Since knitr now generates srcref locations in a different format

* Fix snapshots for markdown errors

Drop the traceback from knitr, because it is only
there in `R CMD check`, but not in `test()` and it
also seems quite fragile.

---------

Co-authored-by: Gábor Csárdi <[email protected]>

Author: hadley

tests/testthat/_snaps/markdown-code.md

@@ -15,7 +15,7 @@
       
     Message
       
-      Quitting from lines 1-1
+      Quitting from :1-1
       x <text>:4: @description failed to evaluate inline markdown code.
       Caused by error in `map_chr()`:
       i In index: 1.

tests/testthat/_snaps/rd-include-rmd.md

@@ -20,9 +20,9 @@
       
     Message
       
-      Quitting from lines 2-3 [unnamed-chunk-2] (<temp-path.Rmd>)
+      Quitting from <temp-path.Rmd>:1-3 [unnamed-chunk-2]
       
-      Quitting from lines 2-2 [unnamed-chunk-1] (<another-temp-path.Rmd>)
+      Quitting from <another-temp-path.Rmd>:1-2 [unnamed-chunk-1]
       x <text>:3: @includeRmd failed to evaluate '<temp-path.Rmd>'.
       Caused by error:
       ! Error

tests/testthat/test-markdown-code.R

@@ -133,7 +133,14 @@ test_that("inline code gives useful warning", {
   "
 
   expect_snapshot(
-    out <- roc_proc_text(rd_roclet(), block)[[1]]
+    out <- roc_proc_text(rd_roclet(), block)[[1]],
+    transform = function(x) {
+      line <- grep("~~~", x)[1]
+      if (!is.na(line)) {
+        x <- x[1:(line-1)]
+      }
+      x
+    }
   )
   expect_equal(out$get_value("description"), "\\verb{r 1 + }")
 })

tests/testthat/test-rd-include-rmd.R

@@ -297,6 +297,10 @@ test_that("useful warnings", {
     transform = function(x) {
       x <- gsub(path, "<temp-path.Rmd>", x, fixed = TRUE)
       x <- gsub("file.*\\.Rmd", "<another-temp-path.Rmd>", x)
+      line <- grep("~~~", x)[1]
+      if (!is.na(line)) {
+        x <- x[1:(line-1)]
+      }
       x
     }
   )