View source: R/ispkginstalled.R
1 | ispkginstalled(pkgname)
|
pkgname |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (pkgname)
{
ischar <- tryCatch(is.character(pkgname) && length(pkgname) ==
1L, error = identity)
if (inherits(ischar, "error"))
ischar <- FALSE
if (!ischar)
pkgname <- deparse(substitute(pkgname))
pkgname %in% names(utils::installed.packages()[, "Package"])
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.