From fd0099acf2c94816c17a9ff026683512855dcb6c Mon Sep 17 00:00:00 2001
From: yilong zhang <elong0527@gmail.com>
Date: Wed, 15 Nov 2023 05:17:43 +0000
Subject: [PATCH] allow user to specify the width of the first column (#9)

---
 R/interactive_table1.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/interactive_table1.R b/R/interactive_table1.R
index 0aec430..0512f59 100644
--- a/R/interactive_table1.R
+++ b/R/interactive_table1.R
@@ -10,6 +10,7 @@ interactive_table1 <- function(meta,
                                download = "none",
                                type = NULL,
                                defaultPageSize = 50,
+                               name_width = 220,
                                max_row = 50000,
                                ...) {
   download <- match.arg(download, choices = c("none", "listing", "table", "all"))
@@ -74,7 +75,6 @@ interactive_table1 <- function(meta,
   space[1:2] <- ""
 
   name_display <- paste(space, name_display)
-  name_width <- 220
 
   # update table
   tbl$table <- cbind(name_display = name_display, tbl$table)