R-alpha: OStype

Paul Gilbert writes:

Robert
I've been looking through my "R -- S compatibility" functions which may
mostly disappear in R 0.60. In fact, it seems already that most of the
things I'm trying to do are for operating system differences rather than
R/S differences. The main problem I am having is that version$os gives
more detail then I usually need, but it is not very convenient for
determining simply if the operating system is Unix. Perhaps you could
suggest a better version of the OStype function below.

Thanks
Paul Gilbert
___________

OStype <- function()
   {if (version$os == "MS Windows") return(version$os)
    if (version$os == "Mac") return(version$os) # needs to be checked
    else return ("Unix")  # not a very satisfactory test
   }