R/readessentia.R

Defines functions read.essentia

Documented in read.essentia

read.essentia <- function(file) {
  pipedline <- pipe(sprintf("bash %s",file), open = "r")
  colspec <- TRUE
  if (grepl("-notitle", file)) {
    colspec <- FALSE
  }
  t2 <- read.csv(pipedline, header = colspec, sep = ",", 
                 quote = "\"'", comment.char = "#", blank.lines.skip = FALSE, 
                 allowEscapes = TRUE, skip = 0)
  rm(colspec)
  close(pipedline)
  return(t2)
}

Try the RESS package in your browser

Any scripts or data that you put into this service are public.

RESS documentation built on May 30, 2017, 7:34 a.m.