docs: Convert website to use {pkgdown}

.Rbuildignore

@@ -33,3 +33,5 @@
 ^revdep$
 ^CRAN-SUBMISSION$
 ^_dev$
+^vignettes/articles$
+^pkgdown$

.github/workflows/R-CMD-check.yaml

@@ -13,9 +13,8 @@ on:
 name: Package checks
 
 jobs:
-  ## Website is not pkgdown; Run `source("tools/docs_update.R")` on release!
-  # website:
-  #   uses: rstudio/shiny-workflows/.github/workflows/website.yaml@v1
+  website:
+     uses: rstudio/shiny-workflows/.github/workflows/website.yaml@v1
   routine:
     uses: rstudio/shiny-workflows/.github/workflows/routine.yaml@v1
     with:

.gitignore

@@ -11,3 +11,5 @@ revdep/checks.noindex
 revdep/library.noindex
 revdep/data.sqlite
 viztest-*
+inst/doc
+docs

DESCRIPTION

@@ -71,12 +71,15 @@ Suggests:
     purrr,
     R6,
     RJSONIO,
+    rmarkdown,
     s2,
     sf (>= 0.9-6),
     shiny,
     terra,
     testthat (>= 3.0.0)
 Config/testthat/edition: 3
+Config/Needs/website: dplyr, geojsonio, ncdf4, tidyverse/tidytemplate
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
+VignetteBuilder: knitr

NAMESPACE

@@ -38,6 +38,9 @@ S3method(polygonData,matrix)
 S3method(polygonData,sf)
 S3method(polygonData,sfc)
 S3method(polygonData,sfg)
+S3method(toPaletteFunc,"function")
+S3method(toPaletteFunc,character)
+S3method(toPaletteFunc,matrix)
 S3method(to_multipolygon,Lines)
 S3method(to_multipolygon,MULTILINESTRING)
 S3method(to_multipolygon,MULTIPOLYGON)

NEWS.md

@@ -2,6 +2,8 @@
 
 * Fixed #893: Correctly call `terra::crs()` when checking the CRS of a `SpatVector` object in `pointData()` or `polygonData()` (thanks @mkoohafkan, #894).
 
+* `{leaflet}` now has a brand new pkgdown site (@olivroy, #902)
+
 # leaflet 2.2.1
 
 * When `addProviderTiles()` is used with `{leaflet.providers}` version 2.0.0 or later, the `leaflet-providers` HTML dependency produced can be correctly cached by knitr. When used with older versions of `{leaflet.providers}`, the HTML dependency uses temp files that break knitr's caching mechanism (thanks @qdread, @jaredlander; #884).

R/colors.R

@@ -323,6 +323,7 @@ brewer_pal <- function(palette, n = NULL) {
 
 # Strings are interpreted as color names, unless length is 1 and it's the name
 # of an RColorBrewer palette that is marked as qualitative
+#' @export
 toPaletteFunc.character <- function(pal, alpha, nlevels) {
   if (length(pal) == 1 && pal %in% row.names(RColorBrewer::brewer.pal.info)) {
     paletteInfo <- RColorBrewer::brewer.pal.info[pal, ]
@@ -341,11 +342,13 @@ toPaletteFunc.character <- function(pal, alpha, nlevels) {
 }
 
 # Accept colorRamp style matrix
+#' @export
 toPaletteFunc.matrix <- function(pal, alpha, nlevels) {
   toPaletteFunc(rgb(pal, maxColorValue = 255), alpha = alpha)
 }
 
 # If a function, just assume it's already a function over [0-1]
+#' @export
 toPaletteFunc.function <- function(pal, alpha, nlevels) {
   pal
 }

R/leaflet-package.R

@@ -24,7 +24,6 @@ NULL
 release_bullets <- function() {
   c(
     "Update static imports: `staticimports::import()`",
-    "Rebuild website: `source(\"scripts/docs_update.R\")`",
     'Check Super Zip example: `shiny::runGitHub("rstudio/shiny-examples", subdir = "063-superzip-example")`',
     "Check licenses if bundled dependencies were updated",
     '`source("scripts/viztest.R")`'