extract: Helper function for parse-shimadzu

Usage Arguments Examples

View source: R/extract.R

Usage

1

Arguments

x

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x) 
{
    p <- gsub("\t", "  ", unlist(x))
    p1 <- strsplit(p, "  ", fixed = FALSE)
    p2 <- p1[-c(1, 2, 3, 4)]
    f <- t(sapply(p2, "[", 1:max(sapply(p2, length))))
    colnames(f) <- f[1, ]
    f <- f[-1, ]
    tt <- c(t, list(a = p1[1:4], b = f))
    return(tt)
  }

HTDA documentation built on May 31, 2017, 2:29 a.m.