#' Copies a generic DESCRIPTION file to current working directory
#'
#' @export
generic_description <- function() {
x <- readLines(system.file("generic-description.txt", package="breheny"))
x[grep('^Package', x)] <- paste0('Package: ', basename(getwd()))
x[grep('^Date', x)] <- paste0('Date: ', Sys.Date())
writeLines(x, 'DESCRIPTION')
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.