R/get_os.R

In RajLabMSSM/echodata: echoverse module: Fine-mapping data access and formatting

#' Get OS
#' 
#' Identify your current operating system (OS).
#' @returns OS name.
#' @family general
#' @export
#' @examples 
#' os <- get_os()
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)
}