Temporarily create a tempfile, which is automatically removed afterwards.

with_tempfile(
  new,
  code,
  envir = parent.frame(),
  pattern = "file",
  tmpdir = tempdir(),
  fileext = ""
)

local_tempfile(
  new = NULL,
  envir = parent.frame(),
  pattern = "file",
  tmpdir = tempdir(),
  fileext = ""
)

with_tempdir(
  code,
  clean = TRUE,
  pattern = "file",
  tmpdir = tempdir(),
  fileext = ""
)

local_tempdir(
  pattern = "file",
  tmpdir = tempdir(),
  fileext = "",
  .local_envir = parent.frame(),
  clean = TRUE
)

Arguments

new

[character vector]
(Deprecated for local_tempfile()) Names of temporary file handles to create.

code

[any]
Code to execute in the temporary environment

envir

[environment]
Environment in which to define the temporary files.

pattern

a non-empty character vector giving the initial part of the name.

tmpdir

a non-empty character vector giving the directory name

fileext

a non-empty character vector giving the file extension

clean

[logical(1)]
A logical indicating if the temporary directory should be deleted after use (TRUE, default) or left alone (FALSE).

.local_envir

[environment]
The environment to use for scoping.

Value

[any]
The results of the evaluation of the code argument.

See also

withr for examples

Examples

# check how big iris would be if written as csv vs RDS tf <- with_tempfile("tf", {write.csv(iris, tf); file.size(tf)}) tf <- with_tempfile("tf", {saveRDS(iris, tf); file.size(tf)})