tempfile <- function(pattern = "file", tmpdir = tempdir()) .Internal(tempfile(pattern, tmpdir))

tempdir <- function() .Internal(tempdir())