#' Add files to a gist object
#'
#' @export
#' @rdname files
#'
#' @param gist A gist object or something coerceable to a gist
#' @template all
#' @examples \dontrun{
#' add_files("~/stuff.Rmd")
#' # update_files()
#' # delete_files()
#' # rename_files()
#' }
add_files <- function(gist, ...) {
files <- list(...)
files <- files_exist(files)
gist$add_files <- files
gist
}
#' @export
#' @rdname files
update_files <- function(gist, ...) {
files <- list(...)
files <- files_exist(files)
gist$update_files <- files
gist
}
#' @export
#' @rdname files
delete_files <- function(gist, ...) {
files <- list(...)
files <- files_exist(files)
gist$delete_files <- files
gist
}
#' @export
#' @rdname files
rename_files <- function(gist, ...) {
gist$rename_files <- list(...)
gist
}
files_exist <- function(x){
tmp <- sapply(x, file.exists)
if (!all(tmp)) {
notfound <- paste0(x[!tmp], collapse = "\n")
stop(sprintf("These don't exist or can't be found:\n%s", notfound),
call. = FALSE)
} else {
x
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.