Nothing
context(".deprecated")
test_that(".deprecated", {
expect_error(.deprecated("0.1", "foo", "bar"), "foobar")
version <- packageVersion("MALDIquant")
version <- paste(version$major, version$minor - 1L, sep=".")
expect_warning(.deprecated(version, "foobar"), "foobar")
expect_message(.deprecated(packageVersion("MALDIquant"), "foobar", "foobar"))
})
test_that(".deprecatedFunction", {
foobar <- function() {
.deprecatedFunction("0.1", new="y")
}
expect_error(foobar(),
"\"foobar\" is deprecated..*Use .*y.* instead. See help(.*y*).")
expect_error(.deprecatedFunction("0.1", old="foobar",
"\"foobar\" is deprecated."))
expect_error(.deprecatedFunction("0.1", old="foo", new="bar",
"\"foo\" is deprecated.\nUse \"bar\" instead. See help(\"bar\")."))
})
test_that(".deprecatedArgument", {
foobar <- function(x, y) {
.deprecatedArgument("0.1", old="x", new="y")
}
expect_error(foobar(1L, 1L),
"Argument .*x.* is deprecated..*Use .*y.* instead. See help(.*foobar.*).")
foobar <- function(x, y) {
.deprecatedArgument("0.1", old="x")
}
expect_error(foobar(1L, 1L),
"Argument \"x\" is deprecated.")
foobar <- function(x, y) {
.deprecatedArgument("0.1", old="x", new="y", help="barfoo")
}
expect_error(foobar(1L, 1L),
"Argument .*x.* is deprecated..*Use .*y.* instead. See help(.*barfoo.*).")
})
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.