ggcall: deal with :: in data call

dreamRs · Apr 16, 2021 · 9bb3257 · 9bb3257
1 parent b1ba603
commit 9bb3257
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/ggcall.R b/R/ggcall.R
@@ -45,7 +45,12 @@ ggcall <- function(data = NULL,
                    ylim = NULL) {
   if (is.null(data))
     return(expr(ggplot()))
-  data <- sym(data)
+  data <- as.character(data)
+  if (grepl("::", data)) {
+    data <- str2lang(data) 
+  } else {
+    data <- sym(data)
+  }
   if (rlang::is_call(mapping)) 
     mapping <- eval(mapping)
   mapping <- dropNulls(mapping)