Nothing
system3 <- function(command, args = character(), ..., capture = FALSE, env = character()) {
stopifnot(is.logical(capture) && length(capture) == 1L)
carg <- if (capture) TRUE else ''
if (length(env) > 0 && .Platform$OS.type == 'windows') {
env <- character()
warning('Ignoring env argument, as R does not support it on windows')
}
r <- system2('jupyter', shQuote(args), carg, carg, wait = TRUE, env = env, ...)
if (capture) {
out <- r
code <- attr(out, 'status')
if (is.null(code)) code <- 0L
msg <- attr(out, 'errmsg')
if (is.null(msg)) msg <- NA_character_
attributes(out) <- NULL
} else {
out <- NA_character_
code <- r
msg <- NA_character_
}
list(out = out, code = code, msg = msg)
}
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.