allow user to specify the width of the first column (#9)

elong0527 · Nov 15, 2023 · fd0099a · fd0099a
1 parent 1fd81b3
commit fd0099a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)