Fix inability to use do.call with create.scatterplot

Switch match.call to sys.call
uclahs-cds · Jul 12, 2023 · c00134f · c00134f
1 parent 5d940ea
commit c00134f
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/R/create.scatterplot.R b/R/create.scatterplot.R
@@ -200,12 +200,8 @@ create.lollipopplot <- create.scatterplot <- function(
 	regions.alpha = 1, lollipop.bar.y = NULL, lollipop.bar.color = 'gray',  ...
 	) {
 
-	function.name <- match.call()[[1]];
-
-	lollipop.plot <- FALSE;
-	if (function.name == 'create.lollipopplot') {
-		lollipop.plot <- TRUE;
-		}
+	function.call <- as.character(sys.calls()[[1]]);
+	lollipop.plot <- 'create.lollipopplot' %in% function.call;
 
 	### needed to copy in case using variable to define rectangles dimensions
 	rectangle.info <- list(