R/utils.R

Defines functions platform is_linux is_mac is_windows

is_windows <- function() .Platform$OS.type == "windows"
is_mac <- function() Sys.info()[["sysname"]] == "Darwin"
is_linux <- function() Sys.info()[["sysname"]] == "Linux"

platform <- function() {
  if (is_windows()) return("win")
  if (is_mac())     return("mac")
  if (is_linux())   return("linux")
  stop("unknown platform")
}
hrbrmstr/hrbragg documentation built on Feb. 3, 2022, 1:39 a.m.