Question

要调用人口普查地理编码器api，我使用的是http://geocoding.geo.census.gov/geocoder/Geocoding_Services_API.pdf下“批量地理编码”标题下的文档提示。他们为调用api批量生成的shell命令是

curl --form addressFile=@address.csv --form benchmark=4 http://geocoding.geo.census.gov/geocoder/locations/addressbatch --output geocoderesult.csv

其中address.csv是要上传的文件。

这完美无缺。但是，我想创建一个R脚本来使整个过程自动化。

在R中执行上述命令的等效方法是什么？ RCurl包中的postForm（）可以完成吗？

BTW，上传的csv文件的每一行（“address.csv”）必须是

形式

Unique ID, Street address, City, State, ZIP

因此，例如，它可能只包含Apple和Facebook的地址，如

1, 1 Infinite Loop, Cupertino, CA, 95014
2, 1 Hacker Way, Menlo Park, CA, 94025

谢谢！

Answer 1

使用httr库，直接翻译

library('httr')

apiurl <- "http://geocoding.geo.census.gov/geocoder/locations/addressbatch"

addresses <- "1, 1 Infinite Loop, Cupertino, CA, 95014
2, 1 Hacker Way, Menlo Park, CA, 94025"

addresseFile <- "addresses.csv"
writeLines(addresses , addresseFile )

resp<-POST(apiurl, body=list(addressFile=upload_file(addresseFile), benchmark=4), 
     encode="multipart")
content(resp)

如果您想跳过将csv文件写入磁盘，可以执行

resp <- POST(apiurl, body=list(
    addressFile = RCurl::fileUpload(
      filename = "data.csv", 
      contents = addresses, 
      contentType = "application/octet-stream"
    ), 
    benchmark=4
  ), 
  encode="multipart"
)

将csv上传到R中的api

1 个答案: