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))
}
gaborcsardi/asciicast documentation built on Oct. 13, 2024, 6:27 p.m.