R/util_os.R

In jeksterslabds/jeksterslabRutils: Package Utility Functions

#' Get Operating System
#'
#' Utility to detect the operating system of the current `R` session.
#' Based on <http://conjugateprior.org/2015/06/identifying-the-os-from-r/>.
#'
#' @return
#' Return any of the following:
#' - `linux` for GNU/Linux operating system
#' - `osx` for Macintosh operating system
#' - `windows` for Windows operating system
#' - mystery machine
#' @examples
#' util_os()
#' @export
util_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)
}