从服务器读取时发生HTTR错误

我正在做一些我认为对r来说应该非常简单的事情，特别是httr，但无法让它工作。我想访问（）并提交工厂代码并获得结果。在阅读了文档之后，我认为应该

res = GET(url = 'http://karpo.gov.bc.ca/royp-bin/phcgi.exe?PH_QKC=WRMSQFELD&PH_APP=RMSprodApp&PH_HTML=WRMSQ_FACI_PLANT.HTM')

res = PUT(url = 'http://karpo.gov.bc.ca/royp-bin/phcgi.exe',  body = list('WEB_FACI_PLANT_VIEW:PLANT' = 160))

但是我犯了一个错误；“读取Web服务器时请求失败”

---

有什么帮助吗？

我使用

curlconverter

包构建请求：

library(httr)
library(rvest)
library(dplyr)

res <- POST(url = "http://karpo.gov.bc.ca/royp-bin/phcgi.exe", 
            add_headers(Origin = "http://karpo.gov.bc.ca", 
                        `Accept-Encoding` = "gzip, deflate", 
                        `Accept-Language` = "en-US,en;q=0.8", 
                        `User-Agent` = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_6) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.70 Safari/537.36", 
                        Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8", 
                        Referer = "http://karpo.gov.bc.ca/royp-bin/phcgi.exe?PH_QKC=WRMSQFELD&PH_APP=RMSprodApp&PH_HTML=WRMSQ_FACI_PLANT.HTM"),
            body=list(PH_HTML = "WRMSQ_FACI_PLANT.HTM", 
                      PH_QKC = "WRMSQ_FACI_PLANT", 
                      PH_APP = "RMSPRODAPP", 
                      PH_SEARCH = "PH_SEARCH_STARTPH_SEARCH_END", 
                      PH_RECORDID = "PH_RECORDID_STARTPH_RECORDID_END", 
                      `WEB_FACI_PLANT_VIEW:FACILITY` = "", 
                      `WEB_FACI_PLANT_VIEW:PLANT` = "160", 
                      PH_ACTION = "Search"), 
            encode="form")

pg <- content(res, as="parsed")
glimpse(html_table(pg)[[2]])
## Observations: 11
## Variables: 6
## $ FacilityCode   <int> 160, 161, 1647, 2355, 4557, 4582, 5857, 7200, 8294, 9049...
## $ FacilityName   <chr> "aitken gas aitkencreek d-044-l/094-a-13 002", "aitken g...
## $ LinkEffective  <chr> "1993 06", "1993 06", "2001 04", "2001 03", "2001 03", "...
## $ LinkTerminated <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
## $ PlantCode      <int> 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160
## $ PlantName      <chr> "aitken gas aitkencreek d-044-l/094-a-13 002", "aitken g...

库（httr）
图书馆（rvest）
图书馆（dplyr）
res我使用
curlconverter
包构建请求：

library(httr)
library(rvest)
library(dplyr)

res <- POST(url = "http://karpo.gov.bc.ca/royp-bin/phcgi.exe", 
            add_headers(Origin = "http://karpo.gov.bc.ca", 
                        `Accept-Encoding` = "gzip, deflate", 
                        `Accept-Language` = "en-US,en;q=0.8", 
                        `User-Agent` = "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_11_6) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.70 Safari/537.36", 
                        Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8", 
                        Referer = "http://karpo.gov.bc.ca/royp-bin/phcgi.exe?PH_QKC=WRMSQFELD&PH_APP=RMSprodApp&PH_HTML=WRMSQ_FACI_PLANT.HTM"),
            body=list(PH_HTML = "WRMSQ_FACI_PLANT.HTM", 
                      PH_QKC = "WRMSQ_FACI_PLANT", 
                      PH_APP = "RMSPRODAPP", 
                      PH_SEARCH = "PH_SEARCH_STARTPH_SEARCH_END", 
                      PH_RECORDID = "PH_RECORDID_STARTPH_RECORDID_END", 
                      `WEB_FACI_PLANT_VIEW:FACILITY` = "", 
                      `WEB_FACI_PLANT_VIEW:PLANT` = "160", 
                      PH_ACTION = "Search"), 
            encode="form")

pg <- content(res, as="parsed")
glimpse(html_table(pg)[[2]])
## Observations: 11
## Variables: 6
## $ FacilityCode   <int> 160, 161, 1647, 2355, 4557, 4582, 5857, 7200, 8294, 9049...
## $ FacilityName   <chr> "aitken gas aitkencreek d-044-l/094-a-13 002", "aitken g...
## $ LinkEffective  <chr> "1993 06", "1993 06", "2001 04", "2001 03", "2001 03", "...
## $ LinkTerminated <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA
## $ PlantCode      <int> 160, 160, 160, 160, 160, 160, 160, 160, 160, 160, 160
## $ PlantName      <chr> "aitken gas aitkencreek d-044-l/094-a-13 002", "aitken g...

库（httr）
图书馆（rvest）
图书馆（dplyr）
res你的
curlconverter
软件包很棒你的
curlconverter
软件包很棒