R 查询后提取结果

我正在尝试从中自动提取电力报价。一旦我设置了邮政编码（即：300），我就可以（手动）下载pdf文件

我正在使用

httr

软件包：

library(httr)
qr<- POST("http://www.qenergy.com.au/What-Are-Your-Options",
     query=list(postcode=3000))
res <- htmlParse(content(qr))

库（httr）
qr试试这个

library(httr)
qr<- POST("http://www.qenergy.com.au/What-Are-Your-Options", 
          encode="form", 
          body=list(postcode=3000))
res <- content(qr)
pdfs <- as(res['//a[contains(@href, "pdf")]/@href'], "character")
head(pdfs)
# [1] "flux-content/qenergy/pdf/VIC price fact sheet jemena distribution zone business/Jemena-Freedom-Biz-5-Day-Time-of-Use-A210.pdf"  
# [2] "flux-content/qenergy/pdf/VIC price fact sheet jemena distribution zone business/Jemena-Freedom-Biz-7-Day-Time-of-Use-A250.pdf"  
# [3] "flux-content/qenergy/pdf/VIC price fact sheet jemena distribution zone business/Jemena-Freedom-Biz-Single-Rate-CL.pdf"          
# [4] "flux-content/qenergy/pdf/VIC price fact sheet jemena distribution zone business/Jemena-Freedom-Biz-Single-Rate.pdf"             
# [5] "flux-content/qenergy/pdf/VIC price fact sheet united energy distribution zone business/United-Freedom-Biz-5-Day-Time-of-Use.pdf"
# [6] "flux-content/qenergy/pdf/VIC price fact sheet united energy distribution zone business/United-Freedom-Biz-7-Day-Time-of-Use.pdf"

库（httr）
qr