R/os.R

In pbs-assess/gfutilities: Groundfish Utility Functions

#' Return the Operating System name in lower case
#'
#' @return A character string describing the OS, e.g. 'windows', 'linux', or 'osx'
#' @export
get_os <- function(){
  sysinf <- Sys.info()
  if(!is.null(sysinf)){
    os <- sysinf["sysname"]
    if(os == "Darwin")
      os <- "osx"
  } else { ## mystery machine
    os <- .Platform$OS.type
    if (grepl("^darwin", R.version$os))
      os <- "osx"
    if (grepl("linux-gnu", R.version$os))
      os <- "linux"
  }
  tolower(os)
}