diff --git a/CRAN-SUBMISSION b/CRAN-SUBMISSION index 7dc0f3d..b88b624 100644 --- a/CRAN-SUBMISSION +++ b/CRAN-SUBMISSION @@ -1,3 +1,3 @@ Version: 0.1.2 -Date: 2024-09-20 09:54:46 UTC -SHA: 9f7949def2b1079e140042cee48c201d7f92e1d7 +Date: 2024-09-22 12:32:20 UTC +SHA: db51758ee1a2fdd9f7cd74ea9f6064d5acabae00 diff --git a/DESCRIPTION b/DESCRIPTION index 123e672..e86ba80 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: rtabulator Type: Package Title: R Bindings for 'Tabulator JS' -Version: 0.1.2 +Version: 0.1.2.9000 Date: 2024-09-22 Authors@R: c( person("Stefan", "Kuethe", email = "crazycapivara@gmail.com", role = c("aut", "cre", "cph")), diff --git a/R/columns.R b/R/columns.R index b18d0bf..f0aeb22 100644 --- a/R/columns.R +++ b/R/columns.R @@ -566,14 +566,17 @@ set_calculation <- function( # Generics -modify_col_def <- function(widget, column, col_update) { - for (index in 1:length(widget$x$options$columns)) { - if (widget$x$options$columns[[index]]$field == column) { - widget$x$options$columns[[index]] <- utils::modifyList( - widget$x$options$columns[[index]], col_update - ) +modify_col_def <- function(widget, columns, col_update) { + for(column in columns){ + for (index in 1:length(widget$x$options$columns)) { + if (widget$x$options$columns[[index]]$field == column) { + widget$x$options$columns[[index]] <- utils::modifyList( + widget$x$options$columns[[index]], col_update + ) + } } } + return(widget) }