tests/testthat/test_rstudio.R

In datapasta: R Tools for Data Copy-Pasta

context("test undocumented RStudio API calls")
is_interactive <- interactive()

test_that(".rs.readUiPref() returns an integer", {
    skip_on_cran()
    skip_on_appveyor()
    skip_on_travis()
    skip_if_not(is_interactive)
    skip_if_not(rstudioapi::isAvailable())
    expect_type(.rs.readUiPref('num_spaces_for_tab'), type="integer")

})