`lookup_tax_data` errors when using unnamed vectors

[zachary-foster]

> ids <- c("JQ086376.1", "AM946981.2", "JQ182735.1", "CP001396.1", "J02459.1", 
+          "AC150248.3", "X64334.1", "CP001509.3", "CP006698.1", "AC198536.1", 
+          "JF340119.2", "KF771025.1", "CP007136.1", "CP007133.1", "U39286.1", 
+          "CP006584.1", "EU421722.1", "U03462.1", "U03459.1", "AC198467.1", 
+          "V00638.1", "CP007394.1", "CP007392.1", "HG941718.1", "HG813083.1", 
+          "HG813082.1", "CP007391.1", "HG813084.1", "CP002516.1", "KF561236.1", 
+          "JX509734.1", "AP010953.1", "U39285.1", "M15423.1", "X98613.1", 
+          "CP006784.1", "CP007393.1", "CU928163.2", "AP009240.1", "CP007025.1", 
+          "CP006027.1", "CP003301.1", "CP003289.1", "CP000946.1", "CP002167.1", 
+          "HG428755.1", "JQ086370.1", "CP001846.1", "CP001925.1", "X99439.1", 
+          "AP010958.1", "CP001368.1", "AE014075.1", "CP002212.1", "CP003034.1", 
+          "CP000243.1", "AY940193.1", "CP004009.1", "JQ182732.1", "U02453.1", 
+          "AY927771.1", "BA000007.2", "CP003109.1", "CP007390.1", "U02426.1", 
+          "U02425.1", "CP006262.1", "HG738867.1", "U00096.3", "FN554766.1", 
+          "CP001855.1", "L19898.1", "AE005174.2", "FJ188381.1", "AK157373.1", 
+          "JQ182733.1", "U39284.1", "U37692.1", "AF129072.1", "FM180568.1", 
+          "CP001969.1", "HE616528.1", "CP002729.1", "JF974339.1", "AB248924.1", 
+          "AB248923.1", "CP002291.1", "X98409.1", "CU928161.2", "CP003297.1", 
+          "FJ797950.1", "CP000038.1", "U82598.1", "CP002211.1", "JQ806764.1", 
+          "U03463.1", "CP001665.1")
> contaminants <- lookup_tax_data(ids[4], type = "seq_id", database = "ncbi")
 Show Traceback
 
 Rerun with Debug
 Error in `*tmp*`[[jj]] : subscript out of bounds