Displaying 1 result from an estimated 1 matches for "needsparen".
Did you mean:
needsparens
2016 Jan 04
1
deparse with parentheses for SUBSET
...iff -u -r A/src/main/deparse.c B/src/main/deparse.c
--- R-devel 2/src/main/deparse.c 2015-08-09 18:09:04.000000000 +0200
+++ R-devel/src/main/deparse.c 2016-01-04 16:15:09.000000000 +0100
@@ -971,7 +971,11 @@
print2buff(")", d);
break;
case PP_SUBSET:
+ if ((parens = needsparens(fop, CAR(s), 1)))
+ print2buff("(", d);
deparse2buff(CAR(s), d);
+ if (parens)
+ print2buff(")", d);
if (PRIMVAL(SYMVALUE(op)) == 1)
print2buff("[", d);
else
With this applied, the output is more consistent:
> substitute(a[1], lis...