Nothing
context("test-assertions")
test_that("assertionsWork", {
expect_error(assertthat::assert_that(is_list("")), "is not a list")
expect_error(
assertthat::assert_that(is_env("")),
"is not an environment"
)
expect_error(
assertthat::assert_that(is_list_of_df("")),
"is not a list of data.frames"
)
expect_error(
assertthat::assert_that(is_url("")),
"is not a url"
)
expect_error(
assertthat::assert_that(is_file("")),
"is not a file"
)
expect_error(
assertthat::assert_that(is_URL_file("")),
"is not a URL or file"
)
expect_true(is_URL_file("http://www.google.com"))
expect_error(
assertthat::assert_that(is_character(1L)),
"should be an character vector"
)
expect_error(
assertthat::assert_that(is_data.frame(1L)),
"should be a data.frame"
)
expect_error(
assertthat::assert_that(contains_required("", "nothere")),
"does not have one of"
)
expect_error(
assertthat::assert_that(app_dir_exists("")),
"app directory not found"
)
})
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.