Update for knitr

common.R

@@ -120,21 +120,19 @@ section_strip <- function(path) {
 # Errors ------------------------------------------------------------------
 
 # Make error messages closer to base R
-registerS3method("wrap", "error", envir = asNamespace("knitr"),
-  function(x, options) {
-    msg <- conditionMessage(x)
-
-    call <- conditionCall(x)
-    if (is.null(call)) {
-      msg <- paste0("Error: ", msg)
-    } else {
-      msg <- paste0("Error in ", deparse(call)[[1]], ": ", msg)
-    }
+sew.error <- function(x, options) {
+  msg <- conditionMessage(x)
 
-    msg <- error_wrap(msg)
-    knitr:::msg_wrap(msg, "error", options)
+  call <- conditionCall(x)
+  if (is.null(call)) {
+    msg <- paste0("Error: ", msg)
+  } else {
+    msg <- paste0("Error in ", deparse(call)[[1]], ": ", msg)
   }
-)
+
+  msg <- error_wrap(msg)
+  knitr:::msg_wrap(msg, "error", options)
+}
 
 error_wrap <- function(x, width = getOption("width")) {
   lines <- strsplit(x, "\n", fixed = TRUE)[[1]]