Implement the inspect behavior

posit-dev · Oct 17, 2024 · b3a429f · b3a429f
1 parent e6e2e18
commit b3a429f
Show file tree

Hide file tree

Showing 3 changed files with 542 additions and 128 deletions.
diff --git a/crates/ark/src/methods.rs b/crates/ark/src/methods.rs
@@ -33,6 +33,12 @@ pub enum ArkGenerics {
 
     #[strum(serialize = "ark_positron_variable_kind")]
     VariableKind,
+
+    #[strum(serialize = "ark_positron_variable_get_child_at")]
+    VariableGetChildAt,
+
+    #[strum(serialize = "ark_positron_variable_get_children")]
+    VariableGetChildren,
 }
 
 impl ArkGenerics {

diff --git a/crates/ark/src/modules/positron/methods.R b/crates/ark/src/modules/positron/methods.R
@@ -10,6 +10,8 @@ ark_methods_table$ark_positron_variable_display_value <- new.env(parent = emptye
 ark_methods_table$ark_positron_variable_display_type <- new.env(parent = emptyenv())
 ark_methods_table$ark_positron_variable_has_children <- new.env(parent = emptyenv())
 ark_methods_table$ark_positron_variable_kind <- new.env(parent = emptyenv())
+ark_methods_table$ark_positron_variable_get_child_at <- new.env(parent = emptyenv())
+ark_methods_table$ark_positron_variable_get_children <- new.env(parent = emptyenv())
 lockEnvironment(ark_methods_table, TRUE)
 
 ark_methods_allowed_packages <- c("torch", "reticulate")