Nothing
#' Get a temporary filename
#'
#' Get a temporary filename, similar to \link{tempfile},
#' except that it always writes to a temporary folder
#' named \link{beastier}.
#' @note this function is added to make sure no temporary
#' cache files are left undeleted
#' @param pattern a non-empty character vector
#' giving the initial part of the name.
#' @param fileext a non-empty character vector
#' giving the file extension
#' @return name for a temporary file
#' @examples
#' get_beastier_tempfilename()
#' get_beastier_tempfilename(pattern = "my_pattern_")
#' get_beastier_tempfilename(fileext = ".ext")
#' @author Richèl J.C. Bilderbeek
#' @export
get_beastier_tempfilename <- function(
pattern = "file",
fileext = ""
) {
normalizePath(
tempfile(
pattern = pattern,
tmpdir = get_beastier_folder(),
fileext = fileext
),
mustWork = 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.