fix: minor fixes and change

- use after_stat instead of stat in examples
- remove R_REMOTES_NO_ERRORS_FROM_WARNINGS from CI

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

@@ -25,7 +25,6 @@ jobs:
           - {os: ubuntu-latest, r: 'release'}
     env:
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
-      R_REMOTES_NO_ERRORS_FROM_WARNINGS: true
 
     steps:
       - uses: actions/checkout@v2
@@ -40,9 +39,9 @@ jobs:
 
       - uses: r-lib/actions/setup-r-dependencies@v2
         with:
-          cache-version: 2
-          extra-packages: >
-            any::rcmdcheck
+          extra-packages: any::rcmdcheck
           needs: check
 
       - uses: r-lib/actions/check-r-package@v2
+        with:
+          upload-snapshots: true

DESCRIPTION

@@ -2,7 +2,7 @@ Package: ggiraph
 Type: Package
 Title: Make 'ggplot2' Graphics Interactive
 Description: Create interactive 'ggplot2' graphics using 'htmlwidgets'.
-Version: 0.8.8.002
+Version: 0.8.8.003
 Authors@R: c(
     person("David", "Gohel", role = c("aut", "cre"),
     email = "[email protected]"),

examples/geom_density_2d_interactive.R

@@ -28,8 +28,8 @@ x <- girafe_options(x = x,
 if (interactive()) print(x)
 
 
-p <- d + stat_density_2d(aes(fill = stat(nlevel),
-                             tooltip = paste("nlevel:", stat(nlevel))),
+p <- d + stat_density_2d(aes(fill = after_stat(nlevel),
+                             tooltip = paste("nlevel:", after_stat(nlevel))),
                          geom = "interactive_polygon") +
   facet_grid(. ~ cut) + scale_fill_viridis_c_interactive(tooltip = "nlevel")
 x <- girafe(ggobj = p)

examples/geom_density_interactive.R

@@ -22,7 +22,7 @@ p <- ggplot(diamonds, aes(carat, fill = cut)) +
 x <- girafe(ggobj = p)
 if( interactive() ) print(x)
 
-p <- ggplot(diamonds, aes(carat, stat(count), fill = cut)) +
+p <- ggplot(diamonds, aes(carat, after_stat(count), fill = cut)) +
   geom_density_interactive(aes(tooltip=cut, data_id=cut), position = "fill")
 x <- girafe(ggobj = p)
 if( interactive() ) print(x)

examples/scale_viridis_guide_bins_interactive.R

@@ -5,7 +5,7 @@ set.seed(4393)
 dsmall <- diamonds[sample(nrow(diamonds), 1000),]
 p <- ggplot(dsmall, aes(x, y)) +
   stat_density_2d(aes(
-    fill = stat(nlevel),
+    fill = after_stat(nlevel),
     tooltip = paste("nlevel:", after_stat(nlevel))
   ),
   geom = "interactive_polygon") +

examples/scale_viridis_guide_coloursteps_interactive.R

@@ -5,8 +5,8 @@ set.seed(4393)
 dsmall <- diamonds[sample(nrow(diamonds), 1000),]
 p <- ggplot(dsmall, aes(x, y)) +
   stat_density_2d(aes(
-    fill = stat(nlevel),
-    tooltip = paste("nlevel:", stat(nlevel))
+    fill = after_stat(nlevel),
+    tooltip = paste("nlevel:", after_stat(nlevel))
   ),
   geom = "interactive_polygon") +
   facet_grid(. ~ cut)