From 1c264bbe323924d98dd1924a4079b06ca2e510d3 Mon Sep 17 00:00:00 2001
From: Scott Chamberlain <myrmecocystus@gmail.com>
Date: Tue, 1 Dec 2015 15:45:16 -0800
Subject: [PATCH] fix to vertmap

---
 R/vertmap.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/vertmap.R b/R/vertmap.R
index b2068c8..635e075 100644
--- a/R/vertmap.R
+++ b/R/vertmap.R
@@ -70,7 +70,8 @@ vertmap <- function(input = NULL, mapdatabase = "world", region = ".",
 		stop("Need columns named 'decimallatitude' and 'decimallongitude'", call. = FALSE) 
 	}
 	
-	name <- !inherits(input$scientificname, "NULL")
+	# name <- !inherits(input$scientificname, "NULL")
+	name <- "scientificname" %in% names(input)
 
   input$decimallatitude <- as.numeric(as.character(input$decimallatitude))
 	input$decimallongitude <- as.numeric(as.character(input$decimallongitude))