Displaying 4 results from an estimated 4 matches for "getoption1".
Did you mean:
getoption
Control statements with condition with greater than one should give error (not just warning) [PATCH]
2017 Mar 03
2
Control statements with condition with greater than one should give error (not just warning) [PATCH]
..."HTTPUserAgent",
Index: src/main/eval.c
===================================================================
--- src/main/eval.c (revision 72298)
+++ src/main/eval.c (working copy)
@@ -1851,9 +1851,13 @@
Rboolean cond = NA_LOGICAL;
if (length(s) > 1) {
+ int check = asInteger(GetOption1(install("check.condition")));
PROTECT(s); /* needed as per PR#15990. call gets protected by
warningcall() */
- warningcall(call,
- _("the condition has length > 1 and only the first element will be used"));
+ if(check != NA_INTEGER && check > 0)
+ errorcal...
Control statements with condition with greater than one should give error (not just warning) [PATCH]
2017 Mar 03
0
Control statements with condition with greater than one should give error (not just warning) [PATCH]
...> ===================================================================
> --- src/main/eval.c (revision 72298)
> +++ src/main/eval.c (working copy)
> @@ -1851,9 +1851,13 @@
> Rboolean cond = NA_LOGICAL;
> if (length(s) > 1) {
> + int check = asInteger(GetOption1(install("check.condition")));
> PROTECT(s); /* needed as per PR#15990. call gets protected by
> warningcall() */
> - warningcall(call,
> - _("the condition has length > 1 and only the first element will be used"));
> + if(check != NA_INT...
Control statements with condition with greater than one should give error (not just warning) [PATCH]
2017 Mar 03
2
Control statements with condition with greater than one should give error (not just warning) [PATCH]
...=======================================
> > --- src/main/eval.c (revision 72298)
> > +++ src/main/eval.c (working copy)
> > @@ -1851,9 +1851,13 @@
> > Rboolean cond = NA_LOGICAL;
>
> > if (length(s) > 1) {
> > + int check = asInteger(GetOption1(install("check.condition")));
> > PROTECT(s); /* needed as per PR#15990. call gets protected by
> > warningcall() */
> > - warningcall(call,
> > - _("the condition has length > 1 and only the first element will be used"));
>...
2018 Dec 04
3
patch to support custom HTTP headers in download.file() and url()
...8 +784,31 @@ static SEXP in_do_download(SEXP args)
}
-void *in_R_HTTPOpen(const char *url, const char *headers, const int cacheOK)
+void *in_R_HTTPOpen(const char *url, const char *agent, const char
*headers, const int cacheOK)
{
inetconn *con;
void *ctxt;
int timeout = asInteger(GetOption1(install("timeout")));
DLsize_t len = -1;
char *type = NULL;
+ char *fullheaders = NULL;
if(timeout == NA_INTEGER || timeout <= 0) timeout = 60;
RxmlNanoHTTPTimeout(timeout);
- ctxt = RxmlNanoHTTPOpen(url, NULL, headers, cacheOK);
+
+ if (agent || headers)...