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))
}

Try the asciicast package in your browser

Any scripts or data that you put into this service are public.

asciicast documentation built on Dec. 5, 2022, 5:22 p.m.