Merge pull request #11 from cynkra/2-extend-column-def

2 extend column def

Author: olajoke

R/cheetah.R

@@ -27,6 +27,8 @@ cheetah <- function(
     is.null(columns) |
       is_named_list(columns) & names(columns) %in% colnames(data)
   )
+  column_style_check(columns)
+
   columns <- toJSON(add_field_to_list(columns), auto_unbox = TRUE)
 
   # Only show rownames if they are character strings (meaningful) and rownames is TRUE

R/cheetah_utils.R

@@ -4,14 +4,16 @@ column_def <- function(
   min_width = NULL,
   max_width = NULL,
   column_type = NULL,
-  action = NULL
+  action = NULL,
+  style = NULL
 ) {
   list(
     caption = name,
     width = width,
     minWidth = min_width,
     maxWidth = max_width,
     columnType = column_type,
-    action = action
+    action = action,
+    style = style
   )
 }

R/utils.R

@@ -20,3 +20,12 @@ add_field_to_list <- function(x) {
 convert_row_column <- function(data) {
   tibble::rownames_to_column(data, "_row")
 }
+
+column_style_check <- function(columns) {
+ lapply(columns, function(x){
+   if("style" %in% names(x) && !is.null(x$style)) {
+     stopifnot("The style attribute expects a list" = is.list(x$style) && !is.null(names(x$style)))
+   }
+ })
+ invisible()
+}

tests/testthat/test-utils.R

@@ -4,6 +4,19 @@ test_that("test utils", {
 
   expect_named(
     column_def(name = "Sepal_Length"),
-    c("caption", "width", "minWidth", "maxWidth", "columnType", "action")
+    c("caption", "width", "minWidth",
+      "maxWidth", "columnType", "action",
+      "style")
   )
 })
+
+test_that("test column style check", {
+
+  columns <- list(
+    Sepal.Length = column_def(name = "Sepal_Length"),
+    Species = column_def(style = "red")
+  )
+
+  expect_error(column_style_check(columns), "The style attribute expects a list")
+})
+