bug filter data with namespace

dreamRs · Apr 19, 2021 · 7c01cc5 · 7c01cc5
1 parent 9bb3257
commit 7c01cc5
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: esquisse
 Type: Package
 Title: Explore and Visualize Your Data Interactively
-Version: 1.0.0.9010
+Version: 1.0.0.9100
 Authors@R: c(person("Fanny", "Meyer", role = c("aut")),
   person("Victor", "Perrier", email = "victor.perrier@dreamrs.fr", role = c("aut", "cre")),
   person("Ian", "Carroll", comment = "Faceting support", role = "ctb"),

diff --git a/NAMESPACE b/NAMESPACE
@@ -40,6 +40,7 @@ importFrom(datamods,filter_data_ui)
 importFrom(datamods,import_modal)
 importFrom(datamods,import_server)
 importFrom(datamods,show_data)
+importFrom(ggplot2,"%+%")
 importFrom(ggplot2,aes)
 importFrom(ggplot2,coord_flip)
 importFrom(ggplot2,facet_wrap)

diff --git a/R/esquisse-server.R b/R/esquisse-server.R
@@ -13,9 +13,10 @@
 #'
 #' @importFrom shiny moduleServer reactiveValues observeEvent is.reactive
 #'  renderPlot stopApp plotOutput showNotification isolate reactiveValuesToList
-#' @importFrom ggplot2 ggplot_build ggsave
+#' @importFrom ggplot2 ggplot_build ggsave %+%
 #' @import ggplot2
 #' @importFrom datamods import_modal import_server show_data
+#' @importFrom rlang expr sym
 esquisse_server <- function(id, 
                             data_rv = NULL,
                             default_aes = c("fill", "color", "size", "group", "facet"),
@@ -331,10 +332,10 @@ esquisse_server <- function(id,
 
         ggplotCall$code <- deparse2(gg_call)
         ggplotCall$call <- gg_call
-        
+
         ggplotCall$ggobj <- safe_ggplot(
-          expr = gg_call,
-          data = setNames(list(data), data_name)
+          expr = expr((!!gg_call) %+% !!sym("esquisse_data")),
+          data = setNames(list(data), "esquisse_data")
         )
         ggplotCall$ggobj$plot
       }, filename = "esquisse-plot")