added header_with_classes, fix #64

Author: pvictor

R/import-modal.R

@@ -328,13 +328,7 @@ import_server <- function(id,
         reactable::reactable(
           data,
           defaultColDef = reactable::colDef(
-            header = function(value) {
-              classes <- tags$div(
-                style = "font-style: italic; font-weight: normal; font-size: small;",
-                get_classes(data[, value, drop = FALSE])
-              )
-              tags$div(title = value, value, classes)
-            }
+            header = header_with_classes
           ),
           columns = list(),
           bordered = TRUE,

R/show_data.R

@@ -27,15 +27,7 @@ show_data <- function(data,
   data <- as.data.frame(data)
   if (isTRUE(show_classes)) {
     defaultColDef <- reactable::colDef(
-      header = function(value) {
-        if (!value %in% names(data))
-          return("")
-        classes <- tags$div(
-          style = "font-style: italic; font-weight: normal; font-size: small;",
-          get_classes(data[, value, drop = FALSE])
-        )
-        tags$div(title = value, value, classes)
-      }
+      header = header_with_classes
     )
   } else {
     defaultColDef <- NULL

R/utils.R

@@ -131,3 +131,14 @@ makeId <- function(x) {
     rep_len(FALSE, length(x))
   }
 }
+
+
+header_with_classes <- function(value) {
+  if (!hasName(data, value))
+    return("")
+  classes <- tags$div(
+    style = "font-style: italic; font-weight: normal; font-size: small;",
+    get_classes(data[, value, drop = FALSE])
+  )
+  tags$div(title = value, value, classes)
+}