R/system3.r

In nbconvertR: Vignette Engine Wrapping Jupyter Notebooks

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)
}