在 R 中运行并行 API 测试

编程问答 2022-05-25

问题描述

我刚刚开始在 R 中使用并行计算，我不知道我要去哪里。我正在尝试通过 csv（200 多条记录）传递标头名称来测试 API，并且我想为多个用户测试它（负载和性能测试）。

library(httr)
library(parallel)
library(doParallel)


detectCores()
registerDoParallel(4)

    
# Headers.csv has names of relevant tables to be tested
headers <- read.csv("Headers.csv")
headers$status <- ""
headers$starttime <- ""
headers$endtime <- ""

# API endpoint
endpoint <- "<api-url>"

  for (j in c(1:nrow(headers))) {
  
  # code to read tables with list specified in Headers.csv;
  headers$starttime[j] <- format(Sys.time(),"%T")
  
  res <- GET(endpoint,add_headers('name' = headers[j,"HEADERS"]),authenticate('UserID','Password'))
  
  headers$endtime[j] <- format(Sys.time(),"%T")
  headers$status[j] <- res$status_code
  
   
}

write.csv(headers,file='APIstatuscode.csv',row.names = F)

但是，我收到一个错误 - 找不到 GET 函数。但我觉得这是一个更大的问题。通过 csv 传递的标题具有简单的格式，其中一列说明所有标题值（200 + 记录）。谢谢。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

doparallelforeachforeachparallel-processingparallel.foreachrr