R/get_os.R

Defines functions get_os

Documented in get_os

#' Get operating system
#'
#'This is the MIT license
#'
#'    Copyright (c) 2010 ActiveState Software Inc.
#'
#'    Permission is hereby granted, free of charge, to any person obtaining a
#'    copy of this software and associated documentation files (the
#'                                                              "Software"), to deal in the Software without restriction, including
#'    without limitation the rights to use, copy, modify, merge, publish,
#'    distribute, sublicense, and/or sell copies of the Software, and to
#'    permit persons to whom the Software is furnished to do so, subject to
#'    the following conditions:
#'
#'      The above copyright notice and this permission notice shall be included
#'    in all copies or substantial portions of the Software.
#'
#'    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
#'    OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
#'    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
#'    IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
#'    CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
#'    TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
#'    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
#'
#' @return the operating system of the current system
#' @export
get_os <- function() {
  if (.Platform$OS.type == "windows") {
    "win"
  } else if (Sys.info()["sysname"] == "Darwin") {
    "mac"
  } else if (.Platform$OS.type == "unix") {
    "unix"
  } else {
    stop("Unknown OS")
  }
}
chasemc/electricShine documentation built on Oct. 12, 2022, 8:50 a.m.