facet_wrap implementation test

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: apexcharter
-Version: 0.1.8
+Version: 0.1.8.900
 Title: Create Interactive Chart with the JavaScript 'ApexCharts' Library
 Description: Provides an 'htmlwidgets' interface to 'apexcharts.js'. 
   'Apexcharts' is a modern JavaScript charting library to build interactive charts and visualizations with simple API.

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(print,apex_facet)
 export("%>%")
 export(JS)
 export(add_event)
@@ -21,6 +22,7 @@ export(ax_chart)
 export(ax_colors)
 export(ax_colors_manual)
 export(ax_dataLabels)
+export(ax_facet_wrap)
 export(ax_fill)
 export(ax_grid)
 export(ax_labels)

R/apex.R

@@ -105,6 +105,8 @@ apex <- function(data, mapping, type = "column", ...,
   }
   ax$x$data <- data
   ax$x$mapping <- mapping
+  ax$x$type <- type
+  ax$x$serie_name <- serie_name
   class(ax) <- c(class(ax), "apex")
   return(ax)
 }

R/facets.R

@@ -0,0 +1,91 @@
+
+#' @importFrom rlang eval_tidy
+get_facets <- function(data, vars) {
+  byvars <- lapply(X = vars, FUN = eval_tidy, data = data)
+  split(x = data, f = byvars, sep = "|__|")
+}
+
+#' @importFrom rlang eval_tidy
+buil_facets <- function(chart, data, vars, mapping, type, serie_name, height) {
+  facets_data <- get_facets(data, vars)
+  lapply(
+    X = seq_along(facets_data),
+    FUN = function(i) {
+      new <- chart
+      mapdata <- lapply(mapping, eval_tidy, data = facets_data[[i]])
+      new$x$ax_opts$series <- make_series(mapdata, mapping, type, serie_name)
+      new$x$facet <- NULL
+      new$height <- height
+      class(new) <- setdiff(class(new), "apex_facet")
+      return(new)
+    }
+  )
+}
+
+build_grid <- function(content, nrow = NULL, ncol = NULL, col_gap = "0px", row_gap = "0px") {
+  n <- length(content)
+  if (is.null(nrow) & !is.null(ncol))
+    nrow <- ceiling(n / ncol)
+  if (!is.null(nrow) & is.null(ncol))
+    ncol <- ceiling(n / nrow)
+  if (is.null(nrow) & is.null(ncol)) {
+    if (n %% 3 < 1) {
+      ncol <- 3
+      nrow <- ceiling(n / ncol)
+    } else {
+      ncol <- 2
+      nrow <- ceiling(n / ncol)
+    } 
+  }
+  htmltools::tags$div(
+    style = "display: grid;",
+    style = sprintf("grid-template-columns: repeat(%s, 1fr);", ncol),
+    style = sprintf("grid-template-rows: repeat(%s, 1fr);", nrow),
+    style = sprintf("grid-column-gap: %s;", col_gap),
+    style = sprintf("grid-row-gap: %s;", row_gap),
+    content
+  )
+}
+
+
+#' @export
+print.apex_facet <- function(x, ...) {
+  facets_charts <- buil_facets(
+    chart = x,
+    data = x$x$data, 
+    vars = x$x$facet$vars, 
+    mapping = x$x$mapping,
+    type = x$x$type, 
+    serie_name = x$x$serie_name, 
+    height = x$x$facet$chart_height
+  )
+  TAG <- build_grid(facets_charts, nrow = x$x$facet$nrow, ncol = x$x$facet$ncol)
+  print(str(TAG, max.level = 1))
+  print(htmltools::browsable(TAG))
+}
+
+
+#' Facet wrap for ApexCharts
+#'
+#' @param ax An \code{apexcharts} \code{htmlwidget} object.
+#' @param vars Variable(s) to use for facetting, wrapped in \code{vars(...)}.
+#' @param nrow,ncol Number of row and column in output matrix.
+#' @param chart_height Individual chart height.
+#'
+#' @return An \code{apexcharts} \code{htmlwidget} object.
+#' @export
+#'
+#' @examples
+ax_facet_wrap <- function(ax, vars, nrow = NULL, ncol = NULL, chart_height = "300px") {
+  if (!inherits(ax, "apex"))
+    stop("ax_facet_wrap only works with charts generated with apex()", call. = FALSE)
+  ax$x$facet <- list(
+    vars = vars,
+    nrow = nrow,
+    ncol = ncol,
+    chart_height = chart_height
+  )
+  class(ax) <- c("apex_facet", class(ax))
+  return(ax)
+}
+

R/onLoad.R

@@ -15,7 +15,7 @@
       }
       return(value)
     }
-  })
+  }, force = TRUE)
   shiny::registerInputHandler("apex_datetime", function(data, ...) {
     if (is.null(data)) {
       NULL

man/ax_facet_wrap.Rd

@@ -0,0 +1,23 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/facets.R
+\name{ax_facet_wrap}
+\alias{ax_facet_wrap}
+\title{Facet wrap for ApexCharts}
+\usage{
+ax_facet_wrap(ax, vars, nrow = NULL, ncol = NULL, chart_height = "300px")
+}
+\arguments{
+\item{ax}{An \code{apexcharts} \code{htmlwidget} object.}
+
+\item{vars}{Variable(s) to use for facetting, wrapped in \code{vars(...)}.}
+
+\item{nrow, ncol}{Number of row and column in output matrix.}
+
+\item{chart_height}{Individual chart height.}
+}
+\value{
+An \code{apexcharts} \code{htmlwidget} object.
+}
+\description{
+Facet wrap for ApexCharts
+}