chore: cran

.Rbuildignore

@@ -6,3 +6,6 @@
 ^\.vscode$
 ^cran-comments\.md$
 ^CONDUCT\.md$
+^\.github
+^\.gitattributes
+^CRAN-SUBMISSION$

CRAN-SUBMISSION

@@ -0,0 +1,3 @@
+Version: 1.0.2
+Date: 2023-09-30 20:08:37 UTC
+SHA: 3f61463e6ab8d088ecff35db7cc1edfe633ee9f3

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: waffle
 Type: Package
 Title: Create Waffle Chart Visualizations
-Version: 1.0.1
-Date: 2019-07-07
+Version: 1.0.2
+Date: 2023-09-30
 Authors@R: c(
     person("Bob", "Rudis", email = "[email protected]", role = c("aut", "cre"), 
            comment = c(ORCID = "0000-0001-5670-2640")),
@@ -23,11 +23,8 @@ Description: Square pie charts (a.k.a. waffle charts) can be used
     to create waffle charts as well as stitch them together, and to use glyphs
     for making isotype pictograms.
 Encoding: UTF-8
-URL: https://gitlab.com/hrbrmstr/waffle
-BugReports: https://gitlab.com/hrbrmstr/waffle/issues
 Copyright: file inst/COPYRIGHTS
 Suggests:
-    testthat,
     knitr,
     rmarkdown,
     dplyr,
@@ -47,7 +44,7 @@ Imports:
     stats,
     htmlwidgets,
     DT,
+    plyr,
     rlang,
     utils
-RoxygenNote: 6.1.1
-VignetteBuilder: knitr
+RoxygenNote: 7.2.3

NAMESPACE

@@ -59,6 +59,7 @@ importFrom(grid,unit.c)
 importFrom(grid,unit.pmax)
 importFrom(grid,unit.pmin)
 importFrom(gtable,is.gtable)
+importFrom(plyr,a_ply)
 importFrom(rlang,is_missing)
 importFrom(stats,setNames)
 importFrom(utils,tail)

R/geom-waffle.R

@@ -1,4 +1,4 @@
-draw_key_waffle <- function(data, params, size, ...) { # nocov start
+draw_key_waffle <- function(data, params, size, ...) {
 
   # msg("Called => draw_key_waffle()")
   #
@@ -18,7 +18,7 @@ draw_key_waffle <- function(data, params, size, ...) { # nocov start
       lty = data$linetype %||% 1
     )
   )
-} # nocov end
+}
 
 #' Waffle (Square pie chart) Geom
 #'
@@ -79,7 +79,7 @@ draw_key_waffle <- function(data, params, size, ...) { # nocov start
 #'   facet_wrap(~fct)
 geom_waffle <- function(mapping = NULL, data = NULL,
                         n_rows = 10, make_proportional = FALSE, flip = FALSE,
-                        na.rm = NA, show.legend = NA,
+                        na.rm = FALSE, show.legend = NA,
                         radius = grid::unit(0, "npc"),
                         inherit.aes = TRUE, ...) {
 

R/stat-waffle.R

@@ -3,7 +3,7 @@
 stat_waffle <- function(mapping = NULL, data = NULL, geom = "waffle",
                         n_rows = 10, make_proportional = FALSE, flip = FALSE,
                         radius = grid::unit(0, "npc"),
-                        na.rm = NA, show.legend = NA,
+                        na.rm = FALSE, show.legend = NA,
                         inherit.aes = TRUE, ...) {
 
   # msg("Called => stat_waffle::stat_waffle()")

R/waffle-package.R

@@ -13,6 +13,7 @@
 #' @import curl
 #' @import DT
 #' @import htmlwidgets
+#' @importFrom plyr a_ply
 #' @importFrom gtable is.gtable
 #' @importFrom RColorBrewer brewer.pal
 #' @importFrom ggplot2 ggplot geom_tile scale_fill_manual guides geom_tile ggplotGrob

R/waffle.R

@@ -24,7 +24,7 @@
 #' will map the input to a Font Awesome glyph name and use that glyph for the
 #' tile instead of a block (making it more like an isotype pictogram than a
 #' waffle chart). You'll need to install Font Awesome 5 and use
-#' the [`extrafont` package](`https://github.com/wch/extrafont`) to
+#' the `extrafont` package to
 #' be able to use Font Awesome 5 glyphs. Sizing is also up to the user since
 #' fonts do not automatically scale with graphic resize.
 #'