From Martin Maechler <maechler@stat.math.ethz.ch>  Fri Oct 24 11:06:09 1997
From: Martin Maechler <maechler@stat.math.ethz.ch> (Martin Maechler)
Date: Fri, 24 Oct 1997 12:06:09 +0200
Subject: R-alpha: OStype
In-Reply-To: <199710240955.LAA19249@aragorn.ci.tuwien.ac.at> (message from
 Kurt Hornik on Fri, 24 Oct 1997 11:55:43 +0200)
Message-ID: <199710241006.MAA10147@sophie.ethz.ch>

>>>>> "Kurt" == Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at> writes:

>>>>> 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 }

    Kurt> Isn't this what machine() does?

Sure,
here is corresponding online help

  HELP> Determine the Machine R is Running On
  HELP> 
  HELP>      machine()
  HELP> 
  HELP> Description:
  HELP> 
  HELP>      This function returns a string which specifies what
  HELP>      kind of environment R is being run in.
  HELP> 
  HELP> Examples:
  HELP> 
  HELP>      if (machine() == "Macintosh")
  HELP>        cat("You are using a Macintosh computer\n")
  HELP> 

Paul's problem is that  machine()  does not exist in  S(plus)...
and the point of his  S--R package is that it is 
	- `source()able' by all versions of S / S-plus / R 
	- defines functions which work on all versions of  ....

However,
he would probably use
	
	.... if(is.R()) machine()  ...

Martin
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


R-alpha: OStype
Martin Maechler