tidy some code

remove some old unused code

Author: grlloyd

R/ggplot_chart_class.R

@@ -68,15 +68,15 @@ setMethod(f = "chart_plot",
     definition = function(obj, dobj, rebuild = NULL) {
         # Determine whether to rebuild based on rebuild parameter and data state
         should_rebuild = FALSE
-        
+
         if (!is.null(rebuild)) {
             # If rebuild parameter is explicitly set, use it
             should_rebuild = rebuild
         } else {
             # Default behavior: only rebuild if data is empty (not already built)
             should_rebuild = (nrow(obj@data) == 0)
         }
-        
+
         # Build the chart if needed
         if (should_rebuild) {
             obj = chart_build(obj, dobj)
@@ -110,11 +110,4 @@ setMethod(f = 'show',
     }
 )
 
-# Helper functions for common ggplot operations
-xlab = function(label) {
-    return(ggplot2::xlab(label))
-}
 
-ylab = function(label) {
-    return(ggplot2::ylab(label))
-}

R/scatter_chart_class.R

@@ -243,11 +243,6 @@ setMethod(f = "chart_build",
         # Store the prepared data
         obj@data = plot_data
 
-        # Update the mapping to use the prepared data
-        obj@mapping@value = aes(
-            x = .data[['x']],
-            y = .data[['y']]
-        )
 
         # Build all layers and add them to the unified layers slot
         layers_list = list()

R/struct_preset_class.R

@@ -20,10 +20,4 @@ preset = function(name, ...) {
     return(L)
 }
 
-# Helper function to standardise aesthetic names (similar to ggplot2::standardise_aes_names)
-standardise_aes_names = function(names) {
-    # This is a simplified version - in practice, this would match ggplot2's implementation
-    # For now, just return the names as-is
-    return(names)
-}