R/command.R

In trinker/embodied: Tools for working with embodied actions (movements within space).

#' Generic Wrapper for shell/system
#' 
#' It is useful to use a universal system command interface that works best with 
#' the user's particular OS. \code{command} does this by utilizing one function 
#' to represent both \code{\link[base]{shell}} and \code{\link[base]{system}} 
#' without restricting the available arguments of either base system interface.
#' 
#' @param cmd The system command to be invoked, as a character string.
#' @param \ldots Arguments passed to either \code{\link[base]{shell}} or 
#' \code{\link[base]{system}}. Function arguments are OS dependent.  Windows 
#' users see \code{\link[base]{shell}}.  Others can view 
#' \code{\link[base]{system}} for specific function arguments.
#' @seealso \code{\link[base]{shell}},
#' \code{\link[base]{system}}
#' @export
#' @examples
#' command("R --version")
command <- function(cmd, ...) {
    fun <- if (Sys.info()["sysname"] == "Windows") { 
        shell(cmd = cmd, ...)
    } else {
    	system(command = cmd, ...)
    }
}