source() / eval() bug ??? (PR#96)

R-0.63.2 and  ``0.63.3 in progress'' :

Put the following in a file

------ 8< -- snip ----------------------------- ...../source-bug.R -------
rm(list=ls())
cat("before c(..):\n")
c(F=(f <- .3), "Tail area" = 2 * if(f < 1) 30 else 90)
------ 8< -- snip -------------------------- end ..../source-bug.R -------

then

source("......../source-bug.R")
	^^^^^^^^
	proper path name

[[or  source("......../source-bug.R", verbose=TRUE) ]]

ends with
	=============================================
	before c(..):
	Error: getAttrib: invalid type for TAG

	> 

	=============================================

On interactive usage, or if you use

	R --vanilla < ..../source-bug.R

there's no problem !