R/system2.R

In kippjohnson/kippr: kippr: A collection of Kipp's miscellanious R functions

#' Print system commands to KnitR Output
#' Taken from Stack Overflow
#'
#' @examples
#' \donotrun{
#' cmd <- paste0(
#' plink2,
#' " --bfile ", mega.bedfile,
#' " --extract ", var.file,
#' " --recode A",
#' " --threads ", nthreads,
#' " --pca 10",
#' " --out BioMe_htn_variant_subset"
#')
#'}

system2 <- function(...){
    stopifnot(!any(names(list(...)) %in% "intern"))
    result <- base::system(..., intern = TRUE)
    cat(paste0(result, "\n"))
}