Fix common_to_sci() ignoring Language argument (#321)

The Language parameter was accepted but not forwarded to get_comnames(),
so all lookups silently used English regardless of what was specified.
Also removes unnecessary enquo() wrapping of an already-evaluated string.

Fixes #275

Author: cboettig

R/common_names.R

@@ -26,12 +26,11 @@ common_to_sci <- function(x,
                           version = "latest",
                           db = NULL){
 
-  comnames <- get_comnames(server, version)
-  subset <- 
+  comnames <- get_comnames(server, version, db = db, lang = Language)
+  subset <-
     purrr::map_dfr(x, function(y){
       y <- stringr::str_to_lower(y)
-      y <- rlang::enquo(y) 
-      dplyr::filter(comnames, grepl(!!y, stringr::str_to_lower(ComName)))
+      dplyr::filter(comnames, grepl(y, stringr::str_to_lower(ComName)))
     })
 
   subset