From c1b7957428cfa8b1cfe4888665960191e378989f Mon Sep 17 00:00:00 2001
From: cyk0315 <rachel200357@gmail.com>
Date: Thu, 29 Feb 2024 14:02:29 +0900
Subject: [PATCH] add linesize, pointsize

---
 R/line.R | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/R/line.R b/R/line.R
index 0fcba9e7..4d4a4219 100644
--- a/R/line.R
+++ b/R/line.R
@@ -49,7 +49,9 @@ lineUI <- function(id, label = "lineplot") {
     checkboxInput(ns("jitter"), "Jitter"),
     checkboxInput(ns("rev_y"), "Reverse Y-axis"),
     uiOutput(ns("subvar")),
-    uiOutput(ns("subval"))
+    uiOutput(ns("subval")),
+    uiOutput(ns("size")),
+    uiOutput(ns("pointsize"))
   )
 }
 
@@ -185,7 +187,17 @@ lineServer <- function(id, data, data_label, data_varStruct = NULL, nfactor.limi
           )
         })
       })
+      output$size<-renderUI({
+        tagList(
+          fluidRow(
+            column(6,numericInput(session$ns('size'), 'line size', value= 0.5)),
+            column(6,numericInput(session$ns('pointsize'), 'point size', value= 0.5))
+
+          )
 
+        )
+      }
+      )
 
       output$subval <- renderUI({
         req(input$subcheck == T)
@@ -252,6 +264,9 @@ lineServer <- function(id, data, data_label, data_varStruct = NULL, nfactor.limi
           color = color, add = add, add.params = add.params, conf.int = input$lineci,
           xlab = label[variable == input$x_line, var_label][1],
           ylab = label[variable == input$y_line, var_label][1], na.rm = T,
+          position=position_dodge(0.5),
+          size=input$size,
+          point.size = input$pointsize,
           linetype = linetype
         )