tests/testthat/helper.R

os_type <- function() {
  tolower(.Platform$OS.type)
}

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

os_arch <- function() {
  tolower(paste0(os_name(), "-", R.Version()$arch))
}
r-lib/asciicast documentation built on Jan. 31, 2024, 1:19 p.m.