tests/testthat/helper_functions.R

In yonicd/covrpage: Create a Readme Summary Page for GitHub testthat and covr Outputs

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
}