如何在R中保存为google街景API的图像响应？

library(httr)

# Google街景API的URL
url <- "https://maps.googleapis.com/maps/api/streetview"

# 设置参数
parameters <- list(
  location = "40.712776,-74.005974",  # 经纬度
  size = "600x400",  # 图像大小
  key = "YOUR_API_KEY"  # 替换为你的Google API密钥
)

# 发送GET请求并获取响应
response <- GET(url, query = parameters)

# 提取图像的二进制数据
image_data <- content(response, as = "raw")

# 保存为图像文件
writeBin(image_data, "streetview_image.jpg")