Nothing
#' Checks if Package is Installed
#'
#' Check if package is installed locally.
#'
#' @param package Name of package you want to check. This can be quoted or unquoted.
#' @keywords installed package
#' @export
#' @examples
#' \dontrun{
#' p_installed(pacman)
#' p_installed(fakePackage)
#' }
p_isinstalled <- function(package) {
## check if package is an object
if(!object_check(package) || !is.character(package)){
package <- as.character(substitute(package))
}
local_packages <- list.files(.libPaths())
package %in% local_packages
}
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.