A Truly Evil True

[brodieG]

Based off of @wrathematics observation:

> library(inline)
> T <- cfunction(body='
+   SEXP res = allocVector(LGLSXP, 1);
+   LOGICAL(res)[0] = 2;
+   return res;'
+ )()
> T
[1] TRUE
> T == TRUE
[1] FALSE