R/gmt.system.R

In arnima-github/gmt: Interface Between GMT Map-Making Software and R

Defines functions gmt.system

Documented in gmt.system

gmt.system <- function(cmd, file=NULL, append=FALSE)
{
  output <- system(cmd, intern=TRUE)
  open <- if(append) "a" else "w"  # append or write

  if(is.character(file))
  {
    con <- file(file, open)
    writeLines(output, con)
    close.connection(con)
  }

  invisible(output)
}