R/utils.R

In gadenbuie/shrtcts: Make Anything an RStudio Shortcut

Defines functions test_fun is_interactive `%||%`

`%||%` <- function(x, y) if (is.null(x)) y else x

is_interactive <- function() interactive()

test_fun <- function() {
  # used in test-run.R
  "mango"
}