added a few more tets, bump version

ropensci · Dec 1, 2015 · b0d1cd7 · b0d1cd7
1 parent 78f7e78
commit b0d1cd7
Show file tree

Hide file tree

Showing 4 changed files with 25 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -4,7 +4,7 @@ Description: Retrieve, map and summarize data from the 'VertNet.org' archives.
     Functions allow searching by many parameters, including 'taxonomic' names,
     places, and dates. In addition, there is an interface for conducting spatially
     delimited searches, and another for requesting large 'datasets' via email.
-Version: 0.4.0.9200
+Version: 0.4.0.9300
 Author: Scott Chamberlain [aut, cre], Chris Ray [aut], Vijay Barve [aut]
 Maintainer: Scott Chamberlain <myrmecocystus@gmail.com>
 License: MIT + file LICENSE

diff --git a/man/bigsearch.Rd b/man/bigsearch.Rd
diff --git a/man/vert_id.Rd b/man/vert_id.Rd
diff --git a/tests/testthat/test-vertmap.R b/tests/testthat/test-vertmap.R
@@ -13,6 +13,20 @@ test_that("vertmap works with vertsearch", {
   expect_is(map1$mapping$x, "name")
 })
 
+test_that("vertmap works for maps not distinguished by color", {
+  skip_on_cran()
+
+  out <- vertsearch("mustela nigripes", verbose = FALSE, limit = 50)
+  out$data$scientificname <- NULL
+  map1 <- vertmap(input = out, mapdatabase = "state")
+
+  expect_is(map1, "gg")
+  expect_is(map1$data, "data.frame")
+  expect_null(map1$labels$colour) # the difference here
+  expect_equal(as.character(map1$mapping$x), "long")
+  expect_is(map1$mapping$x, "name")
+})
+
 test_that("vertmap fails well", {
   skip_on_cran()