remove debuging code & add contributer's information

DESCRIPTION

@@ -9,7 +9,8 @@ Authors@R: c(
   person("Changwoo", "Lim", email = "[email protected]", role = c("aut")),
   person("Jinhwan", "Kim", email = "[email protected]", role = c("aut"), comment = c(ORCID = "0009-0009-3217-2417")),
   person("Yoonkyoung", "Jeon", email = "[email protected]", role = c("aut")),
-  person("Jaewoong", "Heo", email = "[email protected]", role = c("aut")))
+  person("Jaewoong", "Heo", email = "[email protected]", role = c("aut")),
+  person("Youngsun", "Park", email = "[email protected]", role = c("aut"), comment = c(ORCID = "0009-0009-9336-2281")))
 Description: 'RStudio' addins and 'Shiny' modules for descriptive statistics, regression and survival analysis.
 Depends: R (>= 3.4.0)
 License: Apache License 2.0 
@@ -52,7 +53,8 @@ Imports:
   survIDINRI, 
   survival, 
   timeROC, 
-  utils
+  utils,
+  ggrepel
 URL: https://jinseob2kim.github.io/jsmodule/, https://github.com/jinseob2kim/jsmodule
 BugReports: https://github.com/jinseob2kim/jsmodule/issues
 Suggests: 

NAMESPACE

@@ -70,6 +70,7 @@ export(timerocModule2)
 export(timerocUI)
 import(flextable)
 import(ggplot2)
+import(ggrepel)
 import(shiny)
 importFrom(DT,"%>%")
 importFrom(DT,DTOutput)
@@ -104,8 +105,6 @@ importFrom(ggpubr,gghistogram)
 importFrom(ggpubr,ggline)
 importFrom(ggpubr,ggscatter)
 importFrom(ggpubr,stat_compare_means)
-importFrom(ggrepel,geom_label_repel)
-importFrom(ggrepel,geom_text_repel)
 importFrom(haven,read_dta)
 importFrom(haven,read_sas)
 importFrom(haven,read_sav)

R/line.R

@@ -434,14 +434,11 @@ lineServer <- function(id, data, data_label, data_varStruct = NULL, nfactor.limi
         }
 
         if (input$label) {
-          con1 <- input$isStrata & (input$strata != "None")
-          con2 <- input$isStrata
-          con3 <- input$strata != "None"
-
-          print(con1)
-          print(con2)
-          print(con3)
-          if(con3){
+
+
+
+
+          if(con3 <- input$strata != "None"){
             res.plot <- res.plot +
               ggplot2::stat_summary(fun.data = function(x){
                 return(data.frame(y = mean(x), label = round(mean(x), 2))) },