Merge pull request #48 from eodaGmbH/feature/modify_column_vectors

Closes #44

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

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 = "[email protected]", role = c("aut", "cre", "cph")),

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)
 }