#' Creates proper filenames in eyp style
#'
#'
#' @rdname properFilename
#' @references
#'
# assembles a ey-p style filename
#' @export
#' @rdname properFilename
properFilename <- function(name = "test", project="51103", path="", kuerzel="JSA", fileType = "xlsx") {
date = format(Sys.Date(),"%y%m%d")
paste(paste(project, date, kuerzel, sep="-"), " ", name, ".", fileType, sep="")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.