Nothing
#' validate pac input
#' @keywords internal
validate_pac_input <- function(pac, version, at, local, lib.loc, repos) {
stopifnot(length(pac) == 1 && is.character(pac))
stopifnot(is.null(at) || inherits(at, "Date"))
stopifnot(is.null(version) || (length(version) == 1 && is.character(version)))
stopifnot(all(c(is.null(version), is.null(at))) || xor(!is.null(version), !is.null(at)))
stopifnot(is.null(lib.loc) || (all(lib.loc %in% .libPaths()) && (length(list.files(lib.loc)) > 0)))
stopifnot(is.character(repos))
stopifnot((isFALSE(local)) ||
(isTRUE(local) && (is.null(version) || isTRUE(utils::packageDescription(pac, lib.loc = lib.loc)$Version == version))))
}
#' validate compare input
#' @keywords internal
validate_compare_input <- function(pac, old, new, lib.loc, repos) {
stopifnot((length(pac) == 1) && is.character(pac))
stopifnot(is.null(old) || (length(old) == 1) && is.character(old))
stopifnot(is.null(new) || (length(new) == 1) && is.character(new))
stopifnot(is.character(repos))
stopifnot(is.null(lib.loc) || (all(lib.loc %in% .libPaths()) && (length(list.files(lib.loc)) > 0)))
}
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.