R/assertions.R

In s-fleck/adorn: misc. Rstudio addons

is_running_windows <- function(x){
  Sys.info()['sysname'] == 'Windows'
}



on_failure(is_running_windows) <- function(call, env) {
  "Operation only supported on Windows operating systems."
}