fix to vertmap

ropensci · Dec 1, 2015 · 1c264bb · 1c264bb
1 parent d4b85be
commit 1c264bb
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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))