Add ark_trace_back()

Author: lionel-

crates/ark/src/debug.c

@@ -7,6 +7,7 @@ typedef struct SEXPREC *SEXP;
 
 const char* ark_print_rs(SEXP x);
 const char* ark_inspect_rs(SEXP x);
+const char* ark_trace_back_rs();
 const char* ark_display_value_rs(SEXP x);
 
 const char* ark_print(SEXP x) {
@@ -17,6 +18,10 @@ const char* ark_inspect(SEXP x) {
     return ark_inspect_rs(x);
 }
 
+const char* ark_trace_back() {
+    return ark_trace_back_rs();
+}
+
 const char* ark_display_value(SEXP x) {
     return ark_display_value_rs(x);
 }

crates/ark/src/debug.rs

@@ -22,6 +22,18 @@ pub extern "C" fn ark_inspect_rs(x: libr::SEXP) -> *const ffi::c_char {
     })
 }
 
+#[no_mangle]
+pub extern "C" fn ark_trace_back_rs() -> *const ffi::c_char {
+    capture_console_output(|| {
+        // https://github.com/r-lib/rlang/issues/1059
+        unsafe {
+            let fun =
+                libr::R_GetCCallable(c"rlang".as_ptr(), c"rlang_print_backtrace".as_ptr()).unwrap();
+            fun(1);
+        };
+    })
+}
+
 #[no_mangle]
 pub extern "C" fn ark_display_value_rs(x: libr::SEXP) -> *const ffi::c_char {
     let value = unsafe {

crates/harp/src/utils.rs

@@ -770,13 +770,15 @@ pub fn r_subset_vec(x: SEXP, indices: Vec<i64>) -> Result<SEXP> {
 extern "C" {
     fn ark_print(x: libr::SEXP) -> *const ffi::c_char;
     fn ark_inspect(x: libr::SEXP) -> *const ffi::c_char;
+    fn ark_trace_back() -> *const ffi::c_char;
     fn ark_display_value(x: libr::SEXP) -> *const ffi::c_char;
 }
 
 #[ensure_used]
 pub extern "C" fn _placeholder() {
     unsafe { ark_print(libr::R_NilValue) };
     unsafe { ark_inspect(libr::R_NilValue) };
+    unsafe { ark_trace_back() };
     unsafe { ark_display_value(libr::R_NilValue) };
 }
 

crates/libr/src/r.rs

@@ -41,6 +41,9 @@ functions::generate! {
         externalRoutines: *const R_ExternalMethodDef
     ) -> std::ffi::c_int;
 
+    pub fn R_GetCCallable(pkg: *const std::ffi::c_char, fun: *const std::ffi::c_char) ->
+        Option<unsafe extern "C-unwind" fn(std::ffi::c_int) -> *mut std::ffi::c_void>;
+
     pub fn vmaxget() -> *mut std::ffi::c_void;
 
     pub fn vmaxset(arg1: *const std::ffi::c_void);