Nothing
test_that("find_active_file() gives useful error if no RStudio", {
expect_snapshot(find_active_file(), error = TRUE)
})
test_that("fails if can't find tests", {
expect_snapshot(error = TRUE, {
find_test_file("R/foo.blah")
find_test_file("R/foo.R")
})
})
test_that("can determine file type", {
expect_equal(test_file_type("R/foo.R"), "R")
expect_equal(test_file_type("R/foo.c"), NA_character_)
expect_equal(test_file_type("src/foo.c"), "src")
expect_equal(test_file_type("src/foo.R"), NA_character_)
expect_equal(test_file_type("tests/testthat/test-foo.R"), "test")
expect_equal(test_file_type("tests/testthat/test-foo.c"), NA_character_)
expect_equal(test_file_type("tests/testthat/foo.R"), NA_character_)
expect_equal(test_file_type("DESCRIPTION"), NA_character_)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.