Nothing
isaterm <- function()
{
gui <- .Platform$GUI
if (!isatty(stdin()))
return(FALSE)
# ban emacs: here and everywhere else in life
else if (Sys.getenv("EMACS") == "t" || identical(getOption("STERM"), "iESS"))
return(FALSE)
else if (gui == "RTerm" || gui == "X11")
return(TRUE)
else if (gui == "unknown" && .Platform$OS.type == "unix" && Sys.getenv("RSTUDIO") != 1 && Sys.getenv("R_GUI_APP_VERSION") == "")
return(TRUE) # I think?
else
return(FALSE)
}
hastcltk <- function()
{
test <- tryCatch(requireNamespace("tcltk", quietly=TRUE), warning=identity)
if (!is.logical(test))
test <- FALSE
test
}
os_windows = function()
{
.Platform$OS.type == tolower("windows")
}
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.