tests/testthat/helper-functions.R

In whereami: Reliably Return the Source and Call Location of a Command

skip_if_not_rstudio <- function(version = NULL) {
  available <- rstudioapi::isAvailable(version)
  message <- if (is.null(version)) {
    "RStudio not available"
  } else {
    paste("RStudio version '", version, "' not available", sep = "")
  }

  if (!available) {
    skip(message)
  }

  TRUE
}