Nothing
.shFILE <- evalq(envir = new.env(), {
delayedAssign("ofile", { if (.in_shell) .shINFO[["FILE"]] else NA_character_ })
delayedAssign("file" , { .normalizePath(ofile) })
function (original = TRUE, for.msg = FALSE)
.External2(.C_shFILE, original, for.msg)
})
delayedAssign(".has_shFILE", { !is.na(.shFILE()) })
shFILE <- function (original = FALSE, for.msg = FALSE, default, else.)
{
if (missing(default)) {
if (missing(else.))
.shFILE(original, for.msg)
else stop("'shFILE' with 'else.' but not 'default' makes no sense")
}
else {
if (missing(else.)) {
if (.has_shFILE)
.shFILE(original, for.msg)
else if (for.msg)
NA_character_
else default
}
else {
if (.has_shFILE) {
value <- .shFILE(original, for.msg)
(else.)(value)
}
else if (for.msg) {
value <- NA_character_
(else.)(value)
}
else default
}
}
}
try.shFILE <- function ()
tryCatch(.shFILE(FALSE), error = function(e) .shFILE())
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.