From 7105bac5272c434a8e2cf63953b2119f52837bea Mon Sep 17 00:00:00 2001
From: Alboukadel Kassambara <alboukadel.kassambara@gmail.com>
Date: Tue, 28 May 2019 23:19:09 +0200
Subject: [PATCH] Fix in `ggscatter()` to avoid freezing when the `add`
 argument is incorrect #180

---
 NEWS.md       | 1 +
 R/ggscatter.R | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/NEWS.md b/NEWS.md
index 9844a78f..d145bad5 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -8,6 +8,7 @@
 ## Bug fixes
    
 - P-value for multiple comparisons by group (stat_compare_means()) are now correctly displayed ([@elisheva100, #135](https://github.com/kassambara/ggpubr/issues/135)).
+- Fix in `ggscatter()` to avoid freezing when the `add` argument is incorrect ([@atakanekiz, #135](https://github.com/kassambara/ggpubr/issues/180)). 
 
 
 # ggpubr 0.1.9
diff --git a/R/ggscatter.R b/R/ggscatter.R
index ec7fd297..07d08b83 100644
--- a/R/ggscatter.R
+++ b/R/ggscatter.R
@@ -158,7 +158,7 @@ ggscatter <- function(data, x, y, combine = FALSE, merge = FALSE,
                       ggtheme = theme_pubr(),
                       ...){
 
-
+  add <- match.arg(add)
   # Default options
   #:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   .opts <- list(