R/get_os.R

In aedobbyn/dobtools: dobtools

Defines functions get_os

Documented in get_os

#' Get current operating system
#'
#' @return Name of current operating system.
#' @export
#'
#' @examples
#'
#' get_os()

get_os <- function() {
  tolower(Sys.info()[["sysname"]])
}