使用R将多个请求自动发送到web搜索表单

library(httr)

# 设置要发送的请求
requests <- c("apple", "banana", "orange")

# 创建一个空的结果列表，用于存储每个请求的结果
results <- list()

# 循环发送每个请求
for (request in requests) {
  # 构造请求的URL
  url <- paste0("https://www.example.com/search?q=", request)
  
  # 发送GET请求
  response <- GET(url)
  
  # 提取响应内容
  content <- content(response, "text")
  
  # 将结果存储到结果列表中
  results[[request]] <- content
}

# 打印每个请求的结果
for (request in requests) {
  cat("Results for", request, ":\n")
  cat(results[[request]], "\n\n")
}