Renaming summary functions

Author: dfalbel

crates/ark/src/data_explorer/r_data_explorer.rs

@@ -607,7 +607,7 @@ impl RDataExplorer {
         let dtype = display_type(column.sexp);
         match dtype.clone() {
             ColumnDisplayType::Number => {
-                let r_stats: Vec<String> = RFunction::new("", ".ps.number_summary_stats")
+                let r_stats: Vec<String> = RFunction::new("", "number_summary_stats")
                     .param("column", column)
                     .param("filtered_indices", match &self.filtered_indices {
                         Some(indices) => RObject::try_from(indices)?,
@@ -632,7 +632,7 @@ impl RDataExplorer {
                 })
             },
             ColumnDisplayType::String => {
-                let r_stats: Vec<i32> = RFunction::new("", ".ps.string_summary_stats")
+                let r_stats: Vec<i32> = RFunction::new("", "string_summary_stats")
                     .param("column", column)
                     .param("filtered_indices", match &self.filtered_indices {
                         Some(indices) => RObject::try_from(indices)?,
@@ -654,7 +654,7 @@ impl RDataExplorer {
                 })
             },
             ColumnDisplayType::Boolean => {
-                let r_stats: Vec<i32> = RFunction::new("", ".ps.boolean_summary_stats")
+                let r_stats: Vec<i32> = RFunction::new("", "boolean_summary_stats")
                     .param("column", column)
                     .param("filtered_indices", match &self.filtered_indices {
                         Some(indices) => RObject::try_from(indices)?,

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

@@ -44,8 +44,8 @@
     }
 }
 
-.ps.number_summary_stats <- function(column, filtered_indices) {
-    col <- .ps.col_filter_indices(column, filtered_indices)
+number_summary_stats <- function(column, filtered_indices) {
+    col <- col_filter_indices(column, filtered_indices)
 
     format(c(
         min = min(col, na.rm = TRUE),
@@ -56,20 +56,19 @@
     ))
 }
 
-.ps.string_summary_stats <- function(column, filtered_indices) {
-    col <- .ps.col_filter_indices(column, filtered_indices)
+string_summary_stats <- function(column, filtered_indices) {
+    col <- col_filter_indices(column, filtered_indices)
     c(num_empty = sum(!nzchar(col)), num_unique = length(unique(col)))
 }
 
-.ps.boolean_summary_stats <- function(column, filtered_indices) {
-    col <- .ps.col_filter_indices(column, filtered_indices)
+boolean_summary_stats <- function(column, filtered_indices) {
+    col <- col_filter_indices(column, filtered_indices)
     c(true_count = sum(col, na.rm = TRUE), false_count = sum(!col, na.rm = TRUE))
 }
 
-.ps.col_filter_indices <- function(column, filtered_indices) {
-    col <- column
-    if (!is.null(filtered_indices)) {
-        col <- column[filtered_indices]
+col_filter_indices <- function(col, idx = NULL) {
+    if (!is.null(idx)) {
+        col <- col[idx]
     }
     col
 }