Hiding more examples, because effing CRAN can't handle an example tha…

…t runs for 5 seconds 5 seconds? Really? Bite me.
ropensci-archive · Mar 12, 2014 · ac75cb2 · ac75cb2
1 parent 6264217
commit ac75cb2
Show file tree

Hide file tree

Showing 9 changed files with 14 additions and 12 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -11,5 +11,6 @@ import(httr)
 import(leafletR)
 importFrom(assertthat,assert_that)
 importFrom(plyr,ldply)
+importFrom(plyr,llply)
 importFrom(plyr,rbind.fill)
 importFrom(rjson,fromJSON)
diff --git a/R/aw_code.R b/R/aw_code.R
@@ -7,7 +7,7 @@
 #' @seealso \code{\link{aw_data}}
 #' @return list
 #' @examples 
-#' data_by_code <- aw_code(occurrenceid = "antweb:inb0003695883") 
+#' # data_by_code <- aw_code(occurrenceid = "antweb:inb0003695883") 
 aw_code <- function(occurrenceid = NULL, catalogNumber = NULL) {
 
 	# We need at least one identifier

diff --git a/R/aw_coords.R b/R/aw_coords.R
@@ -9,7 +9,7 @@
 #' @importFrom plyr rbind.fill
 #' @return \code{\link{aw_data}}
 #' @examples  
-#' data_by_loc <- aw_coords(coord = "37.76,-122.45", r = 2)
+#' # data_by_loc <- aw_coords(coord = "37.76,-122.45", r = 2)
 aw_coords <- function( coord = NULL, r = NULL) {
 	assert_that(!is.null(coord) & is.character(coord))
 

diff --git a/R/aw_data.R b/R/aw_data.R
@@ -23,7 +23,7 @@
 #' @import httr
 #' @return data.frame
 #' @examples   
-#' data <- aw_data(genus = "acanthognathus", species = "brevicornis")
+#' # data <- aw_data(genus = "acanthognathus", species = "brevicornis")
 #' # data3 <- aw_data(genus = "acanthognathus", species = "brevicornis", georeferenced = TRUE)
 #' # data2 <- aw_data(scientific_name = "acanthognathus brevicornis")
 #' # sandstone <- aw_data(genus = "Aphaenogaster", habitat = "sandstone")
@@ -107,10 +107,11 @@ aw_data <- function(genus = NULL, species = NULL, scientific_name = NULL, georef
 #' This is a thin wrapper around aw_data
 #' @param ... All the same arguments that get passed to \code{aw_data}
 #' @export
+#' @importFrom plyr llply
 #' @keywords data download
 #' @seealso aw_data
 #' @examples \dontrun{
-#' crem <- aw_data_all(genus = "crematogaster", georeferenced = TRUE)
+#' # crem <- aw_data_all(genus = "crematogaster", georeferenced = TRUE)
 #'}
 aw_data_all <- function(...) {
 	x <- aw_data(..., quiet = TRUE)
@@ -135,8 +136,8 @@ aw_data_all <- function(...) {
 #' @return data.frame
 #' @examples  \dontrun{
 #' subfamily_list <- aw_unique(rank = "subfamily")
-#' genus_list <- aw_unique(rank = "genus")
-#' species_list <- aw_unique(rank = "species")
+#' # genus_list <- aw_unique(rank = "genus")
+#' # species_list <- aw_unique(rank = "species")
 #'}
 aw_unique <- function(rank = NULL, name = NULL) {
 	assert_that(!is.null(z_compact(c(rank, name))))

diff --git a/man/aw_code.Rd b/man/aw_code.Rd
@@ -17,7 +17,7 @@ list
 Retrieve data by specimen id
 }
 \examples{
-data_by_code <- aw_code(occurrenceid = "antweb:inb0003695883")
+# data_by_code <- aw_code(occurrenceid = "antweb:inb0003695883")
 }
 \seealso{
 \code{\link{aw_data}}

diff --git a/man/aw_coords.Rd b/man/aw_coords.Rd
@@ -19,6 +19,6 @@ Retrieve AntWeb data by location. A radius argument can be
 supplied as a search radius around a point on th emap.
 }
 \examples{
-data_by_loc <- aw_coords(coord = "37.76,-122.45", r = 2)
+# data_by_loc <- aw_coords(coord = "37.76,-122.45", r = 2)
 }
 
diff --git a/man/aw_data.Rd b/man/aw_data.Rd
@@ -54,7 +54,7 @@ This function allows a user to query the AntWeb database by
 any taxonomic rank or full species name.
 }
 \examples{
-data <- aw_data(genus = "acanthognathus", species = "brevicornis")
+# data <- aw_data(genus = "acanthognathus", species = "brevicornis")
 # data3 <- aw_data(genus = "acanthognathus", species = "brevicornis", georeferenced = TRUE)
 # data2 <- aw_data(scientific_name = "acanthognathus brevicornis")
 # sandstone <- aw_data(genus = "Aphaenogaster", habitat = "sandstone")

diff --git a/man/aw_data_all.Rd b/man/aw_data_all.Rd
@@ -13,7 +13,7 @@ This is a thin wrapper around aw_data
 }
 \examples{
 \dontrun{
-crem <- aw_data_all(genus = "crematogaster", georeferenced = TRUE)
+# crem <- aw_data_all(genus = "crematogaster", georeferenced = TRUE)
 }
 }
 \seealso{

diff --git a/man/aw_unique.Rd b/man/aw_unique.Rd
@@ -21,8 +21,8 @@ Get a list of unique names within any taxonomic rank
 \examples{
 \dontrun{
 subfamily_list <- aw_unique(rank = "subfamily")
-genus_list <- aw_unique(rank = "genus")
-species_list <- aw_unique(rank = "species")
+# genus_list <- aw_unique(rank = "genus")
+# species_list <- aw_unique(rank = "species")
 }
 }
 \seealso{