R/sourceTAF2.R

In colinpmillar/cpmtools: Miscellaneous Functions by 'Colin Millar'

#' @title sourceTAF2
#' @description FUNCTION_DESCRIPTION
#' @param script PARAM_DESCRIPTION
#' @param quiet PARAM_DESCRIPTION, Default: FALSE
#' @return OUTPUT_DESCRIPTION
#' @details DETAILS
#' @examples
#' \dontrun{
#' if(interactive()){
#'  #EXAMPLE1
#'  }
#' }
#' @rdname sourceTAF2
#' @export

sourceTAF2 <- function(script, quiet = FALSE) {
  system2("Rscript", sprintf("-e TAF::sourceTAF('%s')", script))
}