Add two package vignettes, coord_*() and theme_*() wrappers

DESCRIPTION

@@ -18,6 +18,7 @@ Suggests:
     knitr,
     shiny,
     testit
+VignetteBuilder: litedown
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.3

NAMESPACE

@@ -5,6 +5,12 @@ S3method(record_print,g2)
 export(animate)
 export(axis_of)
 export(chart_html)
+export(coord_helix)
+export(coord_parallel)
+export(coord_polar)
+export(coord_radar)
+export(coord_radial)
+export(coord_theta)
 export(coord_transpose)
 export(coordinate)
 export(encode)
@@ -56,6 +62,11 @@ export(scale_of)
 export(scrollbar_of)
 export(slider_of)
 export(style_mark)
+export(theme_academy)
+export(theme_classic)
+export(theme_classicDark)
+export(theme_dark)
+export(theme_light)
 export(theme_of)
 export(title_of)
 export(tooltip_of)

R/coordinate.R

@@ -60,3 +60,68 @@ coord_transpose = function(chart) {
   )
   chart
 }
+
+#' Polar Coordinate System
+#'
+#' Shortcut for `coordinate(chart, 'polar', ...)`.
+#'
+#' @inheritParams coordinate
+#' @export
+#' @examples
+#' g2(data.frame(x = c('A', 'B', 'C'), y = c(3, 7, 2)),
+#'   x = 'x', y = 'y', color = 'x') |>
+#'   mark_interval() |> coord_polar()
+coord_polar = function(chart, ...) coordinate(chart, 'polar', ...)
+
+#' Theta Coordinate System
+#'
+#' Shortcut for `coordinate(chart, 'theta', ...)`. Used for pie and donut
+#' charts.
+#'
+#' @inheritParams coordinate
+#' @export
+#' @examples
+#' g2(data.frame(x = c('A', 'B', 'C'), y = c(3, 7, 2)),
+#'   x = 'x', y = 'y', color = 'x') |>
+#'   mark_interval() |> transform_of('stackY') |>
+#'   coord_theta(innerRadius = 0.5)
+coord_theta = function(chart, ...) coordinate(chart, 'theta', ...)
+
+#' Radial Coordinate System
+#'
+#' Shortcut for `coordinate(chart, 'radial', ...)`. Suitable for radial bar
+#' charts.
+#'
+#' @inheritParams coordinate
+#' @export
+#' @examples
+#' g2(data.frame(x = c('A', 'B', 'C'), y = c(3, 7, 2)),
+#'   x = 'x', y = 'y', color = 'x') |>
+#'   mark_interval() |> coord_radial()
+coord_radial = function(chart, ...) coordinate(chart, 'radial', ...)
+
+#' Radar Coordinate System
+#'
+#' Shortcut for `coordinate(chart, 'radar', ...)`. Used with `position`
+#' encoding for radar (spider) charts.
+#'
+#' @inheritParams coordinate
+#' @export
+coord_radar = function(chart, ...) coordinate(chart, 'radar', ...)
+
+#' Helix Coordinate System
+#'
+#' Shortcut for `coordinate(chart, 'helix', ...)`.
+#'
+#' @inheritParams coordinate
+#' @export
+coord_helix = function(chart, ...) coordinate(chart, 'helix', ...)
+
+#' Parallel Coordinate System
+#'
+#' Shortcut for `coordinate(chart, 'parallel', ...)`. Used with `position`
+#' encoding for parallel coordinate plots.
+#'
+#' @inheritParams coordinate
+#' @export
+coord_parallel = function(chart, ...) coordinate(chart, 'parallel', ...)

R/theme.R

@@ -26,3 +26,53 @@ theme_of = function(chart, type, ...) {
   }
   chart
 }
+
+#' Classic Theme
+#'
+#' Shortcut for `theme_of(chart, 'classic', ...)`. This is the default theme.
+#'
+#' @inheritParams theme_of
+#' @export
+#' @examples
+#' g2(mtcars, x = 'mpg', y = 'hp') |> mark_point() |> theme_classic()
+theme_classic = function(chart, ...) theme_of(chart, 'classic', ...)
+
+#' Classic Dark Theme
+#'
+#' Shortcut for `theme_of(chart, 'classicDark', ...)`.
+#'
+#' @inheritParams theme_of
+#' @export
+#' @examples
+#' g2(mtcars, x = 'mpg', y = 'hp') |> mark_point() |> theme_classicDark()
+theme_classicDark = function(chart, ...) theme_of(chart, 'classicDark', ...)
+
+#' Light Theme
+#'
+#' Shortcut for `theme_of(chart, 'light', ...)`.
+#'
+#' @inheritParams theme_of
+#' @export
+#' @examples
+#' g2(mtcars, x = 'mpg', y = 'hp') |> mark_point() |> theme_light()
+theme_light = function(chart, ...) theme_of(chart, 'light', ...)
+
+#' Dark Theme
+#'
+#' Shortcut for `theme_of(chart, 'dark', ...)`.
+#'
+#' @inheritParams theme_of
+#' @export
+#' @examples
+#' g2(mtcars, x = 'mpg', y = 'hp') |> mark_point() |> theme_dark()
+theme_dark = function(chart, ...) theme_of(chart, 'dark', ...)
+
+#' Academy Theme
+#'
+#' Shortcut for `theme_of(chart, 'academy', ...)`.
+#'
+#' @inheritParams theme_of
+#' @export
+#' @examples
+#' g2(mtcars, x = 'mpg', y = 'hp') |> mark_point() |> theme_academy()
+theme_academy = function(chart, ...) theme_of(chart, 'academy', ...)