Support traced functions in View()

Author: lionel-

crates/ark/src/modules/positron/view.R

@@ -98,6 +98,11 @@ view_function_info <- function(
 ) {
     stopifnot(is.function(x))
 
+    # Extract original function if `x` has been `trace()`d
+    if (inherits(x, "functionWithTrace") && is.function(x@original)) {
+        x <- x@original
+    }
+
     # Only resource the namespace if we're at top-level. Doing it while
     # arbitrary code is running is unsafe as the source references are mutated
     # globally. The mutation could invalidate assumptions made by running code.

crates/ark/src/snapshots/ark__view__tests__view_function_trace.snap

@@ -0,0 +1,8 @@
+---
+source: crates/ark/src/view.rs
+expression: doc
+---
+URI: ark:ark-*pid*/global/foo.R
+
+function (arg) 
+body

crates/ark/src/view.rs

@@ -100,4 +100,18 @@ mod tests {
             )
         });
     }
+
+    #[test]
+    fn test_view_function_trace() {
+        crate::r_task(|| {
+            eval_and_snapshot!(
+                "
+                {
+                    foo <- function(arg) body
+                    trace(foo, identity)
+                    .ps.internal(view_function_test(foo, 'foo', globalenv()))
+                }"
+            )
+        });
+    }
 }