Refactor g2_col_cdn to constant, add record_print.g2, add CI workflows and examples

.Rbuildignore

@@ -6,3 +6,4 @@
 ^node_modules$
 ^package\.json$
 ^package-lock\.json$
+^examples$

.github/copilot-instructions.md

@@ -0,0 +1,194 @@
+# gglite - Repository Instructions for Copilot
+
+## Repository Overview
+
+This is an R package that provides a lightweight interface to the AntV G2
+JavaScript visualization library with a ggplot2-style API. It supports
+rendering in R Markdown, litedown, Shiny, and standalone HTML previews.
+
+**Project Type**: R package
+**Languages**: R, JavaScript (via CDN)
+**Size**: Small repository (~15 R source files)
+**Target Runtime**: R (>= 3.5.0)
+
+## Build and Test Instructions
+
+### Prerequisites
+
+**Note**: R is automatically installed via `.github/copilot-setup-steps.yml`
+when working with GitHub Copilot. For manual setup:
+- R (>= 3.5.0) - available via `copilot-setup-steps.yml`
+- R package dependencies (testit, roxygen2, xfun) - available via
+  `copilot-setup-steps.yml`
+
+**For testing on Linux manually**: If not using Copilot's automated setup,
+install the latest R from CRAN, not from Debian/Ubuntu official repositories.
+Follow instructions at https://cran.r-project.org/bin/linux/ubuntu to ensure
+you're testing with the most recent R version that users will have.
+
+### Bootstrap and Build Sequence
+
+1. **Build the R package**:
+   ```bash
+   R CMD build .
+   ```
+
+2. **Install the package**:
+   ```bash
+   R CMD INSTALL gglite_*.tar.gz
+   ```
+
+3. **Run tests**:
+   ```bash
+   R CMD check gglite_*.tar.gz --no-manual
+   ```
+   or directly:
+   ```bash
+   Rscript tests/test-all.R
+   ```
+   - Tests use the `testit` package
+   - All tests should pass without errors
+
+### Testing Conventions
+
+- Tests are in `tests/testit/test-gglite.R`
+- Use `testit` package for assertions
+- Always wrap test conditions in `{}`: `assert('message', {})`
+- Use `has_error()` instead of `tryCatch()` for error testing
+- Load the package with `library(gglite)` before testing
+
+### Testing Plots in Headless Browsers
+
+Since gglite generates HTML/JavaScript visualizations, **plots must be tested
+in headless browsers** to make sure they can be rendered correctly and produce
+no errors in the browser console. Use tools such as Puppeteer or Playwright to
+open the generated HTML and verify that:
+
+1. The chart container element exists in the DOM.
+2. The G2 chart renders without JavaScript errors.
+3. No warnings or errors appear in the browser console.
+
+## Project Structure
+
+### Key Files and Directories
+
+**Root level**:
+- `DESCRIPTION` - R package metadata
+- `NAMESPACE` - R package namespace (auto-generated by roxygen2)
+- `NEWS.md` - Changelog
+- `README.md` - Package documentation
+- `examples/` - Rmd example files for each chart component
+
+**R code** (`R/`):
+- `gglite.R` - Core: package doc, CDN URLs, `g2()`, `encode()`,
+  `annotate_df()`
+- `mark.R` - All 35 mark (geometry) functions
+- `scale.R` - `scale_of()`
+- `coordinate.R` - `coordinate()`, `coord_transpose()`
+- `interact.R` - `interact()`
+- `theme.R` - `theme_of()`
+- `transform.R` - `transform_of()`
+- `facet.R` - `facet_rect()`, `facet_circle()`
+- `animate.R` - `animate()`
+- `component.R` - `axis_of()`, `legend_of()`, `title_of()`, `tooltip_of()`,
+  `labels_of()`, `style_mark()`, `slider_of()`, `scrollbar_of()`
+- `render.R` - `build_config()`, `chart_html()`, `preview()`, `print.g2()`,
+  `knit_print.g2()`, `record_print.g2()`, `render_shiny()`
+
+**Tests** (`tests/`):
+- `test-all.R` - Entry point
+- `testit/test-gglite.R` - All package tests using testit framework
+
+### CI/CD Configuration
+
+**GitHub Actions** (`.github/workflows/`):
+- `R-CMD-check.yaml` - Runs R CMD check on multiple platforms
+- `copilot-setup-steps.yml` - Sets up the environment for Copilot
+- `github-pages.yml` - Builds and deploys the package site via litedown
+
+## Validation Steps
+
+Before submitting changes:
+
+1. Run `R CMD build .` to build the package
+2. Run `R CMD check gglite_*.tar.gz --no-manual` to validate
+3. Ensure all tests pass: `Rscript tests/test-all.R`
+4. Check GitHub Actions status for multi-platform validation
+5. Update `NEWS.md` to document your changes
+
+## Important Conventions
+
+### R Code Style
+
+1. **Assignment**: Use `=` instead of `<-` for assignment
+2. **Strings**: Use single quotes for strings (e.g., `'text'`)
+3. **Indentation**: Use 2 spaces (not 4 spaces or tabs)
+4. **Compact code**: Avoid `{}` for single-expression if statements; prefer
+   compact forms when possible
+5. **Roxygen documentation**: Don't use `@description` or `@details`
+   explicitly — just write the description text directly after the title. Don't
+   use `@title` either.
+6. **Examples**: Avoid `\dontrun{}` unless absolutely necessary. Prefer
+   runnable examples that can be tested automatically.
+7. **Function definitions**: For functions with many arguments, break the line
+   right after the opening `(`, indent arguments by 2 spaces, and try to wrap
+   them at 80-char width.
+8. **Re-wrap code**: Always re-wrap the code after making changes to maintain
+   consistent formatting and line length.
+9. **JavaScript in R**: Use `const` and arrow functions (`=>`) in JS,
+   `type="module"` for inline scripts, `defer` for external scripts.
+
+### Variables Are Character Strings
+
+gglite does **NOT** use non-standard evaluation (NSE). Variables are specified
+as character strings, e.g., `g2(mtcars, x = 'mpg', y = 'hp')`.
+
+### Testing Conventions
+
+1. **Use testit properly**: Write all test conditions in `()`, use `%==%` to
+   test for `identical()`, and test conditions can return vectors.
+   ```r
+   assert("test description", {
+     (length(result) %==% 3L)
+     (file.exists(result))
+   })
+   ```
+
+### Build and Package Conventions
+
+1. **Always re-roxygenize**: Run `roxygen2::roxygenize()` after changing any
+   roxygen documentation to update man files
+2. **MANDATORY: R CMD check before EVERY commit**: You MUST run `R CMD check`
+   successfully before submitting ANY code changes.
+3. **MANDATORY: Wait for CI to be green**: After pushing code, you MUST wait
+   for GitHub Actions CI to complete successfully before claiming the task is
+   done.
+4. **Bump version in PRs**: Bump the patch version number in DESCRIPTION once
+   per PR (on the first commit or when you first make changes), not on every
+   commit to the PR
+5. **NEVER BREAK CI**: Breaking CI is completely unacceptable. If CI fails, you
+   must immediately fix it.
+6. **Never commit binary files**: Avoid version-controlling binary files,
+   especially automatically generated ones.
+7. **Testing**: Use testit assertions with proper error handling
+8. **Update NEWS.md**: When making changes, make sure to update `NEWS.md`
+   accordingly to document what changed. The first heading in NEWS.md always
+   represents the dev version and must be of the form `# PKG x.y` where PKG
+   is the package name and x.y is the next version to be released to CRAN
+   (note: x.y, not x.y.0). Usually y is bumped from the current minor
+   version, e.g., if the current dev version is 1.8.3, the next CRAN release
+   is expected to be 1.9.
+
+## Package API
+
+The main entry point is `g2()` which creates a chart object, then pipe
+operators (`|>`) chain mark, scale, coordinate, interaction, theme, and
+component functions:
+
+```r
+g2(mtcars, x = 'mpg', y = 'hp') |>
+  mark_point() |>
+  scale_of('x', type = 'log') |>
+  theme_of('dark') |>
+  title_of('Motor Trend Cars')
+```

.github/workflows/copilot-setup-steps.yml

@@ -0,0 +1,26 @@
+name: Copilot Setup Steps
+
+on:
+  workflow_dispatch:
+  push:
+    paths:
+      - .github/workflows/copilot-setup-steps.yml
+  pull_request:
+    paths:
+      - .github/workflows/copilot-setup-steps.yml
+
+jobs:
+  copilot-setup-steps:
+    runs-on: ubuntu-latest
+
+    permissions:
+      contents: read
+
+    steps:
+      - name: Checkout code
+        uses: actions/checkout@v5
+
+      - name: Install R
+        uses: r-lib/actions/setup-r@HEAD
+        with:
+          use-public-rspm: true

.github/workflows/github-pages.yml

@@ -0,0 +1,40 @@
+name: Build and deploy package site
+
+on:
+  push:
+    branches: ["main"]
+
+permissions:
+  contents: read
+  pages: write
+  id-token: write
+
+jobs:
+  deploy:
+    environment:
+      name: github-pages
+      url: ${{ steps.deployment.outputs.page_url }}
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v4
+
+      - uses: actions/configure-pages@v5
+        with:
+          enablement: true
+
+      - uses: r-lib/actions/setup-r@HEAD
+        with:
+          use-public-rspm: true
+
+      - uses: r-lib/actions/setup-r-dependencies@HEAD
+
+      - uses: yihui/litedown/site@HEAD
+        with:
+          site-dir: 'site'
+
+      - uses: actions/upload-pages-artifact@v3
+        with:
+          path: 'site'
+
+      - id: deployment
+        uses: actions/deploy-pages@v4

.gitignore

@@ -3,3 +3,4 @@ package.json
 package-lock.json
 *.Rcheck/
 test-all.mjs
+gglite_*.tar.gz

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(print,g2)
+S3method(record_print,g2)
 export(animate)
 export(axis_of)
 export(chart_html)
@@ -59,3 +60,4 @@ export(title_of)
 export(tooltip_of)
 export(transform_of)
 importFrom(utils,modifyList)
+importFrom(xfun,record_print)

NEWS.md

@@ -0,0 +1,9 @@
+# gglite 0.1
+
+A lightweight R interface to the
+[AntV G2](https://g2.antv.antgroup.com/) JavaScript visualization library with
+a ggplot2-style API. Create interactive charts using the Grammar of Graphics
+with support for 35+ geometry types (marks), scales, coordinates, themes,
+transforms, facets, animations, and chart components (axes, legends, titles,
+tooltips, labels, sliders, and scrollbars). Renders in R Markdown, litedown,
+Shiny, and standalone HTML previews.

R/gglite.R

@@ -18,12 +18,7 @@ g2_cdn = function() {
   getOption('gglite.g2_cdn', 'https://unpkg.com/@antv/g2@5/dist/g2.min.js')
 }
 
-#' CDN URL for the G2 Column-Major Data Helper
-#' @return A character string.
-#' @keywords internal
-g2_col_cdn = function() {
-  'https://cdn.jsdelivr.net/npm/@xiee/utils/js/g2-column.min.js'
-}
+g2_col_cdn = 'https://cdn.jsdelivr.net/npm/@xiee/utils/js/g2-column.min.js'
 
 #' Create a G2 Chart Object
 #'

R/render.R

@@ -88,6 +88,10 @@ chart_html = function(chart, id = NULL, width = NULL, height = NULL) {
   )
 }
 
+cdn_scripts = function() {
+  sprintf('<script src="%s" defer></script>', c(g2_cdn(), g2_col_cdn))
+}
+
 #' Preview a Chart in the Viewer or Browser
 #'
 #' @param chart A `g2` object.
@@ -96,14 +100,13 @@ chart_html = function(chart, id = NULL, width = NULL, height = NULL) {
 #' @export
 preview = function(chart, ...) {
   body = chart_html(chart, ...)
-  html = paste0(
-    '<!DOCTYPE html>\n<html>\n<head>\n',
-    '<meta charset="utf-8">\n',
-    '<script defer src="', g2_cdn(), '"></script>\n',
-    '<script defer src="', g2_col_cdn(), '"></script>\n',
-    '</head>\n<body>\n',
-    body, '\n',
-    '</body>\n</html>'
+  html = c(
+    '<!DOCTYPE html>', '<html>', '<head>',
+    '<meta charset="utf-8">',
+    cdn_scripts(),
+    '</head>', '<body>',
+    body,
+    '</body>', '</html>'
   )
   xfun::html_view(html)
 }
@@ -125,15 +128,16 @@ print.g2 = function(x, ...) {
 #' @param ... Ignored.
 #' @return A `knit_asis` character vector.
 knit_print.g2 = function(x, ...) {
-  cdn = paste0(
-    '<script defer src="', g2_cdn(), '"></script>\n',
-    '<script defer src="', g2_col_cdn(), '"></script>'
-  )
-  body = chart_html(x, ...)
-  out = paste0(cdn, '\n', body)
+  out = paste(c(cdn_scripts(), chart_html(x, ...)), collapse = '\n')
   structure(out, class = c('knit_asis', 'html'))
 }
 
+#' @importFrom xfun record_print
+#' @export
+record_print.g2 = function(x, ...) {
+  xfun::new_record(c(cdn_scripts(), chart_html(x, ...)), 'asis')
+}
+
 .onLoad = function(libname, pkgname) {
   if (requireNamespace('knitr', quietly = TRUE)) {
     registerS3method('knit_print', 'g2', knit_print.g2,