R/get_os.R

In vincentarelbundock/vincent: Personal functions

#' Detect the current OS
#'
#' Shamelessly stolen from Will Lowe's blog
#' https://conjugateprior.org/2015/06/identifying-the-os-from-r/
#' @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)
}