使用 RCurl 下载前 n 行/字符

Question

我需要使用RCurl包来下载各种URL的内容（使用身份验证等）。 为了优化下载速度，我想限制下载的响应输出行/字符，因为我只需要每个页面的前 20 行，并且整个内容大小可能非常大。

使用 readLines 这可以很快完成，例如：

readLines("http://www.nytimes.com/", n = 20L)

但是使用 RCurl 并指定最大字符参数我没有得到预期的结果：

test <- getURL("http://www.nytimes.com/", write = basicTextGatherer(max = 1000))
> nchar(test)
[1] 125709

根据 RCurl 常见问题解答页面 自定义回调函数应该可以解决问题，但是，我不完全知道如何实现。