Merge pull request #136 from boopsboops/fix-geo

Changed 'country' to 'geo_loc_name' in `ncbi_byid()` #135
ropensci · Oct 1, 2024 · ff81186 · ff81186
2 parents ee58d04 + ccd098a
commit ff81186
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ncbi_byid.R b/R/ncbi_byid.R
@@ -69,7 +69,7 @@ ncbi_byid <- function(ids, format=NULL, verbose=TRUE) {
     voucher <- xml_helper(z, './/GBQualifier[GBQualifier_name = "specimen_voucher"]/GBQualifier_value')
     organelle <- xml_helper(z, './/GBQualifier[GBQualifier_name = "organelle"]/GBQualifier_value')
     lat.long <- xml_helper(z, './/GBQualifier[GBQualifier_name = "lat_lon"]/GBQualifier_value')
-    country <- xml_helper(z, './/GBQualifier[GBQualifier_name = "country"]/GBQualifier_value')
+    country <- xml_helper(z, './/GBQualifier[GBQualifier_name = "geo_loc_name"]/GBQualifier_value')
     first.author <- xml_helper(z, './/GBReference[GBReference_reference = "1"]/GBReference_authors/GBAuthor')
     paper.title <- xml_helper(z, './/GBReference[GBReference_reference = "1"]/GBReference_title')
     journal <- xml_helper(z, './/GBReference[GBReference_reference = "1"]/GBReference_journal')