Nothing
#' @importFrom assertthat assert_that is.string
is_package_name <- function(string) {
assert_that(is.string(string))
grepl("^[0-9a-zA-Z._]*$", string)
}
#' @importFrom assertthat "on_failure<-"
on_failure(is_package_name) <- function(call, env) {
paste0(deparse(call$x), " is not a valid package name")
}
#' @importFrom assertthat assert_that is.string
is_package_version <- function(string) {
assert_that(is.string(string))
grepl("^[0-9a-zA-Z._]*$", string)
}
#' @importFrom assertthat "on_failure<-"
on_failure(is_package_version) <- function(call, env) {
paste0(deparse(call$x), " is not a valid (package or R) version")
}
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.