if (interactive()) in Rprofile .First