Displaying 1 result from an estimated 1 matches for "agentfun".
2018 Dec 04
3
patch to support custom HTTP headers in download.file() and url()
..., cacheOK) : \
+ in_R_HTTPOpen(url, agent, headers, cacheOK));
#define Ri_HTTPRead(ctx, dest, len) \
(meth ? in_R_HTTPRead2(ctx, dest, len) : in_R_HTTPRead(ctx, dest, len))
@@ -115,19 +115,20 @@ static Rboolean url_open(Rconnection con)
#endif
case HTTPsh:
{
- SEXP sheaders, agentFun;
- const char *headers;
+ SEXP sagent, agentFun;
+ const char *agent;
SEXP s_makeUserAgent = install("makeUserAgent");
agentFun = PROTECT(lang1(s_makeUserAgent)); // defaults to ,TRUE
SEXP utilsNS = PROTECT(R_FindNamespace(mkString("utils")));
- sheaders = eval(agentFun, u...