6

我正在尝试为 StackOverflow 创建一个 R API。输出被压缩。例如：

readLines("http://api.stackoverflow.com/0.9/stats/", warn=F)
[1] "\037‹\b"                                                                                                                                                                                                                                                                                         
[2] "\030\002úØÛy°óé½\036„iµXäË–[<üt—Zu[\\VmÎHî=ÜÛݹ×ýz’Í.äûû÷>ý´\a\177Ýh÷\017îÝÛÙwßÚáÿþ«¼þý\027ÅrÝæÔlgüÀëA±\017›ìŽï{M¤û.\020\037�Ë\"¿’\006³ì\032„Úß9¸ÿ`¼ç÷³*~ÿKêˆð¡\006v¦ð²ýô£�ñÃ�ì+ôU�_\026滽�]êt¼·?ÞûÈ4ù%\016~S0^>àe¶ÀG\037½n³éÛôKê缬®‚\016Êê¢úý×u‰fó¶]=º{·aΚŽ—y{·©î\026‹‹»h5^-/‚W1 |9[UŲõ^§�Ç"
[3] ":¬´¿1M\177ð\"0íö¹ñ…YÞLëbÕ*!~â\027\036§çU�®êê¢ÎˆµhòýæÅ´Zn\036S¶Z•ùv[­§óm´î�"                                                                                                                                                                                                                      
[4] "Í™t˪^d¥£·üÂ?¾ÿ\033'¿$ù\177"

有没有一种好方法可以在 R 中对其进行压缩，而不是将输出写入文件，对其进行压缩并将其读回？

4

3 回答 3

11

你可以这样做：

conn <- gzcon(url("http://api.stackoverflow.com/0.9/stats/"))
data <- readLines(conn)
于 2010-06-27T19:54:07.067 回答
5

尝试：

p <- gzcon(url("http://api.stackoverflow.com/0.9/stats/"))
readLines(p)
于 2010-06-27T20:09:16.143 回答
4

理想情况下，我们应该告诉服务器我们可以处理 gzip 压缩的内容，从 HTTP 标头中找出内容实际上是 gzip 编码的，然后只有在它是时才解压缩。Rcurl 库可以做到这一点：

library(Rcurl)
getURL("http://api.stackoverflow.com/0.9/stats/",
       .opts=list(encoding="identity,gzip")
于 2010-06-28T04:37:28.860 回答