big steps

R/data-summary.R

@@ -0,0 +1,237 @@
+data_summary_ui <- function(id) {
+  ns <- NS(id)
+
+  toastui::datagridOutput(outputId = "tbl_summary")
+}
+
+
+data_summary_server <- function(id,
+                                data) {
+  shiny::moduleServer(
+    id = id,
+    module = function(input, output, session) {
+      ns <- session$ns
+
+      data_r <- shiny::reactive({
+        if (shiny::is.reactive(data)) {
+          data()
+        } else {
+          data
+        }
+      })
+
+      output$tbl_summary <- shiny::reactive({
+        toastui::renderDatagrid(
+        data_r() |>
+          overview_vars() |>
+          create_overview_datagrid() |>
+          add_sparkline(
+            column = "vals"
+          )
+      )
+      })
+    }
+  )
+}
+
+#' Add sparkline to datagrid
+#'
+#' @param grid grid
+#' @param column clumn to transform
+#'
+#' @returns datagrid
+#' @export
+#'
+#' @examples
+#' grid <- mtcars |>
+#'   default_parsing() |>
+#'   overview_vars() |>
+#'   toastui::datagrid() |>
+#'   add_sparkline()
+#' grid
+add_sparkline <- function(grid, column = "vals", color.main = "#2a8484", color.sec = "#84EF84") {
+  out <- toastui::grid_sparkline(
+    grid = grid,
+    column = column,
+    renderer = function(data) {
+      data_cl <- class(data)
+      if (identical(data_cl, "factor")) {
+        type <- "column"
+        s <- summary(data)
+        ds <- data.frame(x = names(s), y = s)
+        horizontal <- FALSE
+      } else if (any(c("numeric", "integer") %in% data_cl)) {
+        if (length(unique(data)) == length(data)) {
+          type <- "line"
+          ds <- data.frame(x = NA, y = NA)
+          horizontal <- FALSE
+        } else {
+          type <- "box"
+          ds <- data.frame(x = 1, y = data)
+          horizontal <- TRUE
+        }
+      } else if (any(c("Date", "POSIXct", "POSIXt", "hms", "difftime") %in% data_cl)) {
+        type <- "line"
+        ds <- data.frame(x = seq_along(data), y = data)
+        horizontal <- FALSE
+      } else {
+        type <- "line"
+        ds <- data.frame(x = NA, y = NA)
+        horizontal <- FALSE
+      }
+      apexcharter::apex(
+        ds,
+        apexcharter::aes(x, y),
+        type = type,
+        auto_update = TRUE
+      ) |>
+        apexcharter::ax_chart(sparkline = list(enabled = TRUE)) |>
+        apexcharter::ax_plotOptions(
+          boxPlot = apexcharter::boxplot_opts(color.upper = color.sec, color.lower = color.main),
+          bar = apexcharter::bar_opts(horizontal = horizontal)
+        ) |>
+        apexcharter::ax_colors(
+          c(color.main, color.sec)
+        )
+    }
+  )
+
+  toastui::grid_columns(
+    grid = out,
+    columns = column,
+    minWidth = 200
+  )
+}
+
+#' Create a data overview data.frame ready for sparklines
+#'
+#' @param data data
+#'
+#' @returns data.frame
+#' @export
+#'
+#' @examples
+#' mtcars |> overview_vars()
+overview_vars <- function(data) {
+  data <- as.data.frame(data)
+
+  dplyr::tibble(
+    class = get_classes(data),
+    name = names(data),
+    n_missing = unname(colSums(is.na(data))),
+    p_complete = 1 - n_missing / nrow(data),
+    n_unique = get_n_unique(data),
+    vals = as.list(data)
+  )
+}
+
+#' Create a data overview datagrid
+#'
+#' @param data data
+#'
+#' @returns datagrid
+#' @export
+#'
+#' @examples
+#' mtcars |>
+#'   overview_vars() |>
+#'   create_overview_datagrid()
+create_overview_datagrid <- function(data) {
+  # browser()
+  gridTheme <- getOption("datagrid.theme")
+  if (length(gridTheme) < 1) {
+    datamods:::apply_grid_theme()
+  }
+  on.exit(toastui::reset_grid_theme())
+
+  col.names <- names(data)
+
+  std_names <- c(
+    "Name" = "name",
+    "Class" = "class",
+    "Missing" = "n_missing",
+    "Complete" = "p_complete",
+    "Unique" = "n_unique",
+    "Plot" = "vals"
+  )
+
+  headers <- lapply(col.names, \(.x){
+    if (.x %in% std_names) {
+      names(std_names)[match(.x, std_names)]
+    } else {
+      .x
+    }
+  }) |> unlist()
+
+  grid <- toastui::datagrid(
+    data = data,
+    theme = "default",
+    colwidths = "auto"
+  )
+
+  grid <- toastui::grid_columns(
+    grid = grid,
+    columns = col.names,
+    header = headers,
+    resizable = TRUE,
+    width = 80
+  )
+
+  grid <- add_class_icon(
+    grid = grid,
+    column = "class"
+  )
+
+  # grid <- toastui::grid_format(
+  #   grid = grid,
+  #   "p_complete",
+  #   formatter = toastui::JS("function(obj) {return (obj.value*100).toFixed(0) + '%';}")
+  # )
+
+  return(grid)
+}
+
+#' Convert class grid column to icon
+#'
+#' @param grid grid
+#' @param column column
+#'
+#' @returns datagrid
+#' @export
+#'
+#' @examples
+add_class_icon <- function(grid, column = "class") {
+  out <- toastui::grid_format(
+    grid = grid,
+    column = column,
+    formatter = function(value) {
+      lapply(
+        X = value,
+        FUN = function(x) {
+          if (identical(x, "numeric")) {
+            shiny::icon("chart-line")
+          } else if (identical(x, "factor")) {
+            shiny::icon("chart-column")
+          } else if (identical(x, "integer")) {
+            shiny::icon("arrow-down-1-9")
+          } else if (identical(x, "character")) {
+            shiny::icon("arrow-down-a-z")
+          } else if (any(c("Date", "POSIXct", "POSIXt") %in% x)) {
+            shiny::icon("calendar-days")
+          } else if ("hms" %in% x) {
+            shiny::icon("clock")
+          } else {
+            shiny::icon("table")
+          }
+        }
+      )
+    }
+  )
+
+  toastui::grid_columns(
+    grid = out,
+    header = NULL,
+    columns = column,
+    width = 60
+  )
+}