Nothing
context('printing defaults')
test_that('default prints functions with no arguments', {
text <- capture.output(default(Sys.Date))
expect_equal(text, "function has no arguments")
})
test_that('default prints arguments without defaults', {
text <- capture.output(default(print))
expect_equal(text, c(" - x = [none]",
" - ... = [none] "))
})
test_that('default prints arguments with defaults', {
text <- capture.output(default(citation))
expect_equal(text, c(" - package = \"base\"",
" - lib.loc = NULL",
" - auto = NULL "))
})
test_that('default handles with calls as defaults', {
text <- capture.output(default(hist.default))
expect_equal(text[4], " - probability = !freq")
})
test_that('default flags user-defined defaults', {
default(citation) <- list(package = "default")
text <- capture.output(default(citation))
expect_equal(text, c("* - package = \"default\"",
" - lib.loc = NULL",
" - auto = NULL "))
})
test_that('default_functions are printed without displaying the original', {
default(hist.default) <- list(col = "red")
text_new <- capture.output(print(hist.default))
expect_true(!"attr(,\"original_function\")" %in% text_new)
})
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.