R/detect_os.R

In srearl/soilHarmonization: Homogenize LTER Soil Organic Matter Working Group data and notes

#' @title Detect operating system
#'
#' @description
#'     This function uses \code{Sys.info} to detect the user's operating system
#'     and outputs an abbreviated character string to be used as inputs to OS
#'     specific function calls.
#'
#' @usage detect_os()
#'
#' @return
#'     \item{win}{Windows OS}
#'     \item{mac}{Mac OS}
#'     \item{lin}{Linux OS}
#'
#' @export
#'

detect_os <- function(){
  sysinfo <- Sys.info()["sysname"]
  if (sysinfo == "Darwin"){
    os <- "mac"
  } else if (sysinfo == "Linux"){
    os <- "lin"
  } else {
    os <- "win"
  }
  os
}