Don't run examples in check

NEWS.md

@@ -5,6 +5,7 @@
 * changed the defaults and behavior of the color and fill argument/aesthetics to better maintain backwards compatibility but also prevent unnecessary outlines (#87)
 * added resolve_phylopic (#66)
 * pick_phylopic now accepts a list of uuids via the uuid argument (#95)
+* fixed check behavior on CRAN (all tests and examples are now skipped)
 
 # rphylopic 1.2.2
 

R/add_phylopic.r

@@ -56,7 +56,7 @@
 #'   Also, outline colors do not currently work for png array objects.
 #' @importFrom ggplot2 annotate
 #' @export
-#' @examples
+#' @examples \dontrun{
 #' # Put a silhouette behind a plot based on a taxonomic name
 #' library(ggplot2)
 #' ggplot(iris) +
@@ -81,6 +81,7 @@
 #'                fill = fills, alpha = alpha, angle = angle,
 #'                horizontal = hor, vertical = ver)
 #' p + ggtitle("R Cat Herd!!")
+#' }
 add_phylopic <- function(img = NULL, name = NULL, uuid = NULL, filter = NULL,
                          x, y, ysize = Inf,
                          alpha = 1, color = NA, fill = "black",

R/add_phylopic_base.r

@@ -64,7 +64,7 @@
 #' @importFrom grImport2 grid.picture
 #' @importFrom methods is slotNames
 #' @export
-#' @examples
+#' @examples \dontrun{
 #' # single image
 #' plot(1, 1, type = "n", main = "A cat")
 #' add_phylopic_base(uuid = "23cd6aa4-9587-4a2e-8e26-de42885004c9",
@@ -95,6 +95,7 @@
 #' add_phylopic_base(img = cat, alpha = 0.2)
 #' # overlay smaller cats
 #' add_phylopic_base(img = cat, x = posx, y = posy, ysize = size, alpha = 0.8)
+#' }
 add_phylopic_base <- function(img = NULL, name = NULL, uuid = NULL,
                               filter = NULL,
                               x = NULL, y = NULL, ysize = NULL,

R/browse_phylopic.R

@@ -19,8 +19,9 @@
 #'
 #' @importFrom utils browseURL
 #' @export
-#' @examples
+#' @examples \dontrun{
 #' url <- browse_phylopic(name = "Acropora cervicornis")
+#' }
 browse_phylopic <- function(name = NULL, uuid = NULL) {
   # Error handling -------------------------------------------------------
   if (!is.null(name) && !is.character(name)) {

R/geom_phylopic.R

@@ -68,8 +68,7 @@ phylopic_env <- new.env()
 #' @inheritParams pick_phylopic
 #' @importFrom ggplot2 layer
 #' @export
-#' @examples
-#' \dontrun{
+#' @examples \dontrun{
 #' library(ggplot2)
 #' df <- data.frame(x = c(2, 4), y = c(10, 20),
 #'                  name = c("Felis silvestris catus", "Odobenus rosmarus"))

R/get_attribution.R

@@ -22,12 +22,12 @@
 #' @importFrom knitr combine_words
 #' @importFrom utils packageVersion
 #' @export
-#' @examples
+#' @examples \dontrun{
 #' # Get valid uuid
 #' uuid <- get_uuid(name = "Acropora cervicornis")
 #' # Get attribution data for uuid
 #' attri <- get_attribution(uuid = uuid)
-#' \dontrun{
+#' 
 #' # Get list of valid uuids
 #' uuids <- get_uuid(name = "Scleractinia", n = 5)
 #' # Get attribution data for uuids

R/get_phylopic.R

@@ -23,18 +23,17 @@
 #'   is returned. If `format` is "raster", a png array representing the
 #'   rasterized image is returned. Either way, the uuid and download url are
 #'   included as the "uuid" and "url" attributes, respectively.
-#' @importFrom rsvg rsvg_png
-#' @importFrom png readPNG
 #' @importFrom grid grid.newpage grid.raster
 #' @importFrom grImport2 grid.picture
 #' @export
-#' @examples
+#' @examples \dontrun{
 #' # uuid
 #' uuid <- "9fae30cd-fb59-4a81-a39c-e1826a35f612"
 #'
 #' # Get data for an image
 #' img_svg <- get_phylopic(uuid, format = "vector") # vector format
 #' img_png <- get_phylopic(uuid, format = "raster") # raster format
+#' }
 get_phylopic <- function(uuid = NULL, format = "vector", height = 512,
                          preview = FALSE) {
   # Error handling -------------------------------------------------------
@@ -123,6 +122,8 @@ get_png <- function(x) {
   img_new
 }
 
+#' @importFrom rsvg rsvg_png
+#' @importFrom png readPNG
 make_png <- function(url, height) {
   tryCatch({
     img_new <- readPNG(rsvg_png(url, height = height))

R/get_uuid.R

@@ -30,9 +30,10 @@
 #'   [pick_phylopic] to visually select the desired uuid/url.
 #' @importFrom stats setNames
 #' @export
-#' @examples
+#' @examples \dontrun{
 #' uuid <- get_uuid(name = "Acropora cervicornis")
 #' uuid <- get_uuid(name = "Dinosauria", n = 5, url = TRUE)
+#' }
 get_uuid <- function(name = NULL, img = NULL, n = 1, filter = NULL,
                      url = FALSE) {
   # Handle img -----------------------------------------------------------

R/save_phylopic.R

@@ -32,8 +32,7 @@
 #' @importFrom grImport2 grid.picture
 #' @importFrom methods is
 #' @export
-#' @examples
-#' \dontrun{
+#' @examples \dontrun{
 #' # Get image data
 #' img <- get_phylopic("27356f15-3cf8-47e8-ab41-71c6260b2724")
 #' # Save file