Add print and format methods for Rcpp_stack_trace

Author: jimhester

NAMESPACE

@@ -31,11 +31,13 @@ export(Module,
        demangle,
        sizeof,
        cpp_object_initializer,
-       cpp_object_dummy, 
-       Rcpp.plugin.maker,
-       str.Rcpp_stack_trace
+       cpp_object_dummy,
+       Rcpp.plugin.maker
        )
 S3method(print, bytes)
+S3method(format, Rcpp_stack_trace)
+S3method(str, Rcpp_stack_trace)
+S3method(print, Rcpp_stack_trace)
 exportClass(RcppClass)
 
 

R/exceptions.R

@@ -33,6 +33,16 @@
     warnings
 }
 
-str.Rcpp_stack_trace <- function(x, ...) {
-  cat("\n", paste(collapse = "\n   ", x$stack), "\n")
+print.Rcpp_stack_trace <- function(x, ...) {
+  cat(format(x, ...))
+}
+
+str.Rcpp_stack_trace <- function(object, ...) {
+  cat(format(object, ...))
+}
+
+format.Rcpp_stack_trace <- function(x, ...) {
+  paste0(
+    if (nzchar(x$file)) paste0(x$file, ":", x$line),
+    "\n  ", paste(collapse = "\n   ", seq_along(x$stack), ":", x$stack), "\n")
 }