內容類型圖像

Question

我正在向該網站發出POST請求，並且期望得到XML對象作為回報。 在R中使用httr包：

library("httr")
url <- "https://pathways.embl.de/mapping.cgi"
#body <- list(a = 1, b = 2, c = 3)
body <- list(selection = "R01324 W20 #ff0000", export_type="svg")

r <- POST(url, body = body, encode = "form", verbose())

這將返回status_code 200（成功），但是content(r)給出類似以下content(r) ：

[1] 3c 3f 78 6d 6c 20 76 65 72 73 69 6f 6e 3d 27 31 2e 30 27 20 65 6e 63 6f 64 69 6e 67 3d 27 49
  [32] 53 4f 2d 38 38 35 39 2d 31 27 3f 3e 0a 3c 21 44 4f 43 54 59 50 45 20 73 76 67 20 50 55 42 4c
  [63] 49 43 20 22 2d 2f 2f 57 33 43 2f 2f 44 54 44 20 53 56 47 20 31 2e 30 2f 2f 45 4e 22 20 22 68
  [94] 74 74 70 3...

（輸出被截斷）絕對不是xml。

檢查r$headers$content-type返回"image/svg+xml" 。

我可以在Python中做同樣的事情：

import requests

url = 'https://pathways.embl.de/mapping.cgi'
body = {"selection":"R01324 W20 #ff0000", "export_type":"svg"}

r = requests.post(url, data=body)

with open('test.svg','w') as file:
    file.write(r.text)

這將成功在test.svg寫出我想要的xml輸出。

我想知道如何在R完成此操作？

Answer 1

比我想象的更容易修復： content(r, "text")