fix geom args (histogram)

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: esquisse
 Type: Package
 Title: Explore and Visualize Your Data Interactively
-Version: 1.2.0.9000
+Version: 1.2.0.9100
 Authors@R: c(person("Fanny", "Meyer", role = c("aut")),
   person("Victor", "Perrier", email = "[email protected]", role = c("aut", "cre")),
   person("Ian", "Carroll", comment = "Faceting support", role = "ctb"),

R/geometries.R

@@ -234,9 +234,16 @@ match_geom_args <- function(geom,
       geom_args <- c(geom_args, stat_args)
     }
   }
+  # browser()
   if (isTRUE(add_aes)) {
     GeomFun <- paste0("Geom", capitalize(gsub("geom_", "", geom)))
     GeomFun <- try(get(GeomFun, envir = pkg_envir), silent = TRUE)
+    if (inherits(GeomFun, "try-error")) {
+      GeomFun <- try({
+        fun <- get(geom, envir = pkg_envir)
+        fun()$geom
+      }, silent = TRUE)
+    }
     if (inherits(GeomFun, "try-error") & !is.null(geom_args$geom)) {
       GeomFun <- paste0("Geom", capitalize(geom_args$geom))
       GeomFun <- try(get(GeomFun, envir = pkg_envir), silent = TRUE)
@@ -246,6 +253,7 @@ match_geom_args <- function(geom,
       geom_args <- c(geom_args, setNames(aes_args, aes_args))
     }
   }
+  # browser()
   args <- args[names(args) %in% setdiff(names(geom_args), exclude_args)]
   if (isTRUE(add_mapping) & length(mapping) > 0)
     args <- c(list(expr(aes(!!!syms2(mapping)))), args)

R/module-controls-geoms.R

@@ -269,7 +269,8 @@ controls_geoms_server <- function(id,
           span = if (!identical(input$span, 0.75)) input$span,
           level = if (!identical(input$level, 0.95)) input$level,
           method = if (!identical(input$method, "loess")) input$method,
-          se = input$se
+          se = input$se,
+          bins = input$bins
         ))
       })