fix to vertmap

sckott · sckott · commit 1c264bbe3239 · 2015-12-01T15:45:16.000-08:00
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))

Original file line number	Diff line number	Diff line change
`@@ -70,7 +70,8 @@ vertmap <- function(input = NULL, mapdatabase = "world", region = ".",`
`70`	`70`	`stop("Need columns named 'decimallatitude' and 'decimallongitude'", call. = FALSE)`
`71`	`71`	`}`
`72`	`72`
`73`		`- name <- !inherits(input$scientificname, "NULL")`
	`73`	`+ # name <- !inherits(input$scientificname, "NULL")`
	`74`	`+ name <- "scientificname" %in% names(input)`
`74`	`75`
`75`	`76`	`input$decimallatitude <- as.numeric(as.character(input$decimallatitude))`
`76`	`77`	`input$decimallongitude <- as.numeric(as.character(input$decimallongitude))`