From 622a3d7cbfe4f3d05ee2b32b099cd16ac77a9abf Mon Sep 17 00:00:00 2001 From: Stefan Kuethe Date: Fri, 20 Sep 2024 15:14:20 +0200 Subject: [PATCH 1/3] Set dev version --- DESCRIPTION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 6b5023b..20d0199 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-20 Authors@R: c( person("Stefan", "Kuethe", email = "crazycapivara@gmail.com", role = c("aut", "cre", "cph")), From ef5898e68001fcdf1df82a6edd0c080d7bfa8e7e Mon Sep 17 00:00:00 2001 From: Stefan Kuethe Date: Sun, 22 Sep 2024 17:00:51 +0200 Subject: [PATCH 2/3] Update CRAN-SUBMISSION --- CRAN-SUBMISSION | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 From b047da24c4f9edb874665b91a0faf4bdded2519b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Nico=20Frie=C3=9F?= Date: Mon, 23 Sep 2024 12:50:37 +0200 Subject: [PATCH 3/3] closes #44 --- R/columns.R | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) 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) }