Displaying 2 results from an estimated 2 matches for "extractdroparg".
2006 Sep 08
1
R drop behavior -- set as option in later version?
..., but it seems like this would only require changes
to a few lines of code.
In main/subset.c, surrounding line 505, there is the following code:
------------
/* Extracts the drop argument, if present, from the argument list.
The object being subsetted must be the first argument. */
static void ExtractDropArg(SEXP el, int *drop)
{
SEXP last = el;
for (el = CDR(el); el != R_NilValue; el = CDR(el)) {
if(TAG(el) == R_DropSymbol) {
*drop = asLogical(CAR(el));
if (*drop == NA_LOGICAL) *drop = 1;
SETCDR(last, CDR(el));
}
else last = el;
}...
2006 Sep 08
1
R drop behavior -- set as option in later version?
..., but it seems like this would only require changes
to a few lines of code.
In main/subset.c, surrounding line 505, there is the following code:
------------
/* Extracts the drop argument, if present, from the argument list.
The object being subsetted must be the first argument. */
static void ExtractDropArg(SEXP el, int *drop)
{
SEXP last = el;
for (el = CDR(el); el != R_NilValue; el = CDR(el)) {
if(TAG(el) == R_DropSymbol) {
*drop = asLogical(CAR(el));
if (*drop == NA_LOGICAL) *drop = 1;
SETCDR(last, CDR(el));
}
else last = el;
}...