test_useDevel <- function()
{
if (!BiocInstaller:::IS_END_OF_LIFE) {
checkException(useDevel(), silent=TRUE)
} else if (!BiocInstaller:::IS_DOWNGRADEABLE) {
checkException(useDevel(FALSE), silent=TRUE)
}
if (!BiocInstaller:::IS_UPGRADEABLE) {
checkException(useDevel(), silent=TRUE)
checkException(biocLite("BiocUpgrade"))
}
}
test_getContribUrl_exist <- function()
{
fun <- BiocInstaller:::.getContribUrl
vers <- BiocInstaller:::BIOC_VERSION
checkTrue(grepl(vers, fun(vers)))
if (BiocInstaller:::IS_UPGRADEABLE) {
vers <- BiocInstaller:::UPGRADE_VERSION
checkTrue(grepl(vers, fun(vers)))
}
if (BiocInstaller:::IS_DOWNGRADEABLE) {
vers <- BiocInstaller:::DOWNGRADE_VERSION
checkTrue(grepl(vers, fun(vers)))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.