pkgdown.yml

on:
  push:
    branches:
      - main
      - master
    paths:
      - 'DESCRIPTION'
      - '**pkgdown.yml'
      - '*.md'
      - 'inst/CITATION'
      - 'inst/*.bib'
      - 'inst/treespace/app.R'
      - 'man/**.Rd'
      - 'vignettes/**.Rmd'
      
  release:
    types: [published]
  workflow_dispatch:

name: pkgdown

jobs:
  pkgdown:
    runs-on: ubuntu-latest

    env:
      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}

    steps:
      # ── Build pkgdown site (no shinylive, no deploy) ──────────────
      - uses: ms609/actions/pkgdown@main
        with: 
          extra-repositories: https://ms609.github.io/packages/
          deploy: 'false'

      # ── Export Shinylive app ──────────────────────────────────────
      - name: Export Shinylive app
        shell: Rscript {0}
        run: |
          # ── Locate app ──
          pkg_name  <- read.dcf("DESCRIPTION")[, "Package"]
          app_dir   <- system.file("treespace", package = pkg_name)
          if (!dir.exists(app_dir)) app_dir <- "inst/treespace"
          stopifnot(
            "app.R not found" = file.exists(file.path(app_dir, "app.R"))
          )
          
          # ── Work around shinylive bug (coatless/quarto-webr#228) ──
          # shinylive resolves deps from the WASM repo's PACKAGES
          # database, which may reference packages not installed
          # locally (e.g. R.cache).  packageDescription() returns NA
          # for these, and shinylive crashes on desc$Repository.
          # Patch packageDescription to return a stub instead of NA.
          #
          # TODO: Remove once shinylive handles missing packages.
          # TODO: Also remove remotes from DESCRIPTION/suggests/website
          local({
            real_pd <- utils::packageDescription
            ns <- asNamespace("utils")
            unlockBinding("packageDescription", ns)
            assign("packageDescription", function(pkg, lib.loc = NULL,
                  fields = NULL, drop = TRUE, encoding = "") {
              result <- real_pd(pkg, lib.loc = lib.loc, fields = fields,
                                drop = drop, encoding = encoding)
              if (identical(result, NA)) {
                message("  [shinylive patch] '", pkg,
                        "' not installed locally; stub description used")
                result <- structure(
                  list(Package = pkg, Version = "0.0.0",
                       Repository = "CRAN"),
                  class = "packageDescription"
                )
                if (!is.null(fields)) {
                  result <- result[fields]
                  if (drop && length(fields) == 1L)
                    return(result[[1L]])
                }
              }
              result
            }, envir = ns)
          })

          # ── Export ──
          tryCatch(
            shinylive::export(appdir = app_dir, destdir = "docs/app",
            wasm_packages = FALSE,
            repos = c("https://ms609.r-universe.dev",
                      "https://repo.r-wasm.org")),
            error = function(e) {
              msg <- conditionMessage(e)
              message("\n===== shinylive::export() failed =====")
              message(msg)
              message("This is often caused by a dependency not available")
              message("as a WebAssembly binary.  Check both:")
              message("  https://repo.r-wasm.org/bin/emscripten/contrib/4.5/PACKAGES")
              message("  https://ms609.r-universe.dev/bin/emscripten/contrib/4.5/PACKAGES")
              stop(e)
            }
          )
          file.create("docs/.nojekyll")

      # ── Deploy ────────────────────────────────────────────────────
      - name: Deploy to GitHub Pages
        uses: JamesIves/github-pages-deploy-action@v4
        with:
          folder: docs
          branch: gh-pages
          clean: false