Nothing
#' Create a new postcard
#'
#' Create (and optionally edit) a new postcard.
#'
#' @inheritParams rmarkdown::draft
#' @param create_dir `TRUE` to create a new directory for the postcard
#' (defaults to `FALSE`).
#' @param create_image `TRUE` to create a placeholder image
#' (defaults to `TRUE`).
#'
#' @export
#' @details
#' Valid values for the `template` argument include `"jolla"`, `"jolla-blue"`,
#' `"trestles"`, `"onofre"`, and `"solana"`.
#' @examples
#' \dontrun{
#'
#' postcards::create_postcard(template = "jolla")
#' postcards::create_postcard(template = "jolla-blue")
#' postcards::create_postcard(template = "trestles")
#' postcards::create_postcard(template = "onofre")
#' postcards::create_postcard(template = "solana")
#' }
create_postcard <- function(file = "index.Rmd",
template = "jolla",
create_dir = FALSE,
edit = TRUE,
create_image = TRUE) {
article <- rmarkdown::draft(
file,
template,
"postcards",
create_dir = create_dir,
edit = FALSE
)
if(create_image) {
img_table <- as.list(
system.file("img",
c("tobi.jpg", "xiang.jpg", "frank.jpg", "herzl.jpg", "sigridur.jpg"),
package = "postcards"))
names(img_table) <- c("jolla", "jolla-blue", "trestles", "onofre", "solana")
file.copy(img_table[[template]], dirname(file))
}
if (edit) {
if (rstudioapi::hasFun("navigateToFile"))
rstudioapi::navigateToFile(file)
else
utils::file.edit(file)
}
invisible(article)
}
new_project_create_postcard <- function(path, ...) {
params <- list(...)
dir.create(path, recursive = TRUE, showWarnings = FALSE)
if (rstudioapi::isAvailable("1.1.287")) {
rstudioapi::initializeProject(path)
}
template_table <- as.list(c("jolla", "jolla-blue", "trestles", "onofre", "solana"))
names(template_table) <- c("Jolla", "Jolla Blue", "Trestles", "Onofre", "Solana")
create_postcard(file.path(path, "index.Rmd"),
template = template_table[[params[["template"]]]],
edit = FALSE)
}
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.