这是有点棘手：
1.您需要使用https://data.eppo.int/documentation/rest中服务名称的正确URL，例如使用 * 从EPPOCodes列表中搜索首选名称 *：

url = "https://data.eppo.int/api/rest/1.0/tools/codes2prefnames"

1.授权应传递给以下机构：

body = list(authtoken = "yourtoken", intext = "BEMITA")

因此，如果要检查两个eppocode的名称：XYLEFA和BEMITA代码应类似于：

httr::POST(
  url = "https://data.eppo.int/api/rest/1.0/tools/codes2prefnames",
  body = list(authtoken = "yourtoken", intext = "BEMITA|XYLEFA") 
)

尽管如此，我还是建议你使用pestr包，但是，为了找到eppocodes，它使用了SQLite数据库，而不是EPPO REST API，因为数据库本身并不大（大约40MB），这应该不是一个问题。

我在DataCamp课程中找到了一个简单的方法：
“要查找API服务的R客户端，请搜索'CRAN '”
我发现了'pestr'包，使伟大的访问Eppo数据库.
我自己仍然不知道如何使用POST（）函数。这方面的任何提示都是热烈欢迎的。

这里有一个解决方案来循环名字来获取EPPO代码。

# vector of species names
host_name <- c("Fraxinus anomala", "Tobacco ringspot virus", "invalide name", 
"Sequoiadendron giganteum") 

EPPO_key <- "enter personal key"

# EPPO url 
path_eppo_code <- "https://data.eppo.int/api/rest/1.0/tools/names2codes"

# epty list 
my_list <- list() 

for (i in host_name) {

# POST request on eppo database
response <- httr::POST(path_eppo_code, body=list(authtoken=EPPO_key, 
intext=i))

# get EPPO code
pest_eppo_code <- strsplit(httr::content(response)[[1]], ";")[[1]][2]
 
# add to list
my_list[[i]] <- pest_eppo_code  
}

# list to data frame 
data <- plyr::ldply(my_list)