From acb0b43e56edd68a65dde6f20b9d2caece9d138e Mon Sep 17 00:00:00 2001
From: jinseob kim <jinseob2kim@gmail.com>
Date: Wed, 8 Jan 2025 21:47:51 +0900
Subject: [PATCH] v1.6.1 fix

---
 DESCRIPTION            | 2 +-
 R/forestcox.R          | 4 ++--
 man/forestcoxServer.Rd | 5 ++++-
 man/forestglmServer.Rd | 5 ++++-
 4 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 086c6055..c7dd1a7a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: jsmodule
 Title: 'RStudio' Addins and 'Shiny' Modules for Medical Research
 Version: 1.6.1
-Date: 2024-12-18
+Date: 2025-01-08
 Authors@R: c(
   person("Jinseob", "Kim", email = "jinseob2kim@gmail.com", role = c("aut", "cre"),  comment = c(ORCID = "0000-0002-9403-605X")),
   person("Zarathu", role = c("cph", "fnd")),
diff --git a/R/forestcox.R b/R/forestcox.R
index b4390cad..433546da 100644
--- a/R/forestcox.R
+++ b/R/forestcox.R
@@ -2,7 +2,6 @@
 #' @description Shiny module UI for forestcox
 #' @param id id
 #' @param label label, Default: 'forestplot'
-#' @param cluster_id cluster id. default: NULL
 #' @return Shinymodule UI
 #' @details Shinymodule UI for forestcox
 #' @examples
@@ -85,6 +84,7 @@ forestcoxUI <- function(id, label = "forestplot") {
 #' @param data_varStruct Reactive List of variable structure, Default: NULL
 #' @param nfactor.limit nlevels limit in factor variable, Default: 10
 #' @param design.survey reactive survey data. default: NULL
+#' @param cluster_id cluster option variable for marginal cox model
 #' @return Shiny module server for forestcox
 #' @details Shiny module server for forestcox
 #' @examples
@@ -244,7 +244,7 @@ forestcoxServer <- function(id, data, data_label, data_varStruct = NULL, nfactor
         sliderInput(session$ns("time"), "Select time range", min = min(data()[[day]], na.rm = TRUE), max = max(data()[[day]], na.rm = TRUE), value = c(min(data()[[day]], na.rm = TRUE), max(data()[[day]], na.rm = TRUE)))
       })
 
-      print(cluster_id)
+      #print(cluster_id)
 
       output$xlim_forest <- renderUI({
         req(tbsub)
diff --git a/man/forestcoxServer.Rd b/man/forestcoxServer.Rd
index ef6df97c..1927f17b 100644
--- a/man/forestcoxServer.Rd
+++ b/man/forestcoxServer.Rd
@@ -10,7 +10,8 @@ forestcoxServer(
   data_label,
   data_varStruct = NULL,
   nfactor.limit = 10,
-  design.survey = NULL
+  design.survey = NULL,
+  cluster_id = NULL
 )
 }
 \arguments{
@@ -25,6 +26,8 @@ forestcoxServer(
 \item{nfactor.limit}{nlevels limit in factor variable, Default: 10}
 
 \item{design.survey}{reactive survey data. default: NULL}
+
+\item{cluster_id}{cluster option variable for marginal cox model}
 }
 \value{
 Shiny module server for forestcox
diff --git a/man/forestglmServer.Rd b/man/forestglmServer.Rd
index 8d6708e5..0bf46f30 100644
--- a/man/forestglmServer.Rd
+++ b/man/forestglmServer.Rd
@@ -11,7 +11,8 @@ forestglmServer(
   family,
   data_varStruct = NULL,
   nfactor.limit = 10,
-  design.survey = NULL
+  design.survey = NULL,
+  repeated_id = NULL
 )
 }
 \arguments{
@@ -28,6 +29,8 @@ forestglmServer(
 \item{nfactor.limit}{nlevels limit in factor variable, Default: 10}
 
 \item{design.survey}{reactive survey data. default: NULL}
+
+\item{repeated_id}{data when repeated id. default: F}
 }
 \value{
 Shiny module server for forestglm