[R] Reading multiple tables from file

[jim holtman]

Will this do it for you:

> x <- readLines(textConnection("1
+ Pietje
+ I1 I2 Value
+ 1  1  0.11
+ 1  2  0.12
+ 2  1  0.21
+
+ 2
+ Jantje
+ I1 I2 I3 Value
+ 1  1  1  0.111
+ 3  3  3  0.333"))
> closeAllConnections()
> start <- grep("^[[:digit:]]+$", x)
> mark <- vector('integer', length(x))
> mark[start] <- 1
> # determine limits of each table
> mark <- cumsum(mark)
> # split the data for reading
> df <- lapply(split(x, mark), function(.data){
+     .input <- read.table(textConnection(.data), skip=2, header=TRUE)
+     attr(.input, 'name') <- .data[2]  # save the name
+     .input
+ })
> # rename the list
> names(df) <- sapply(df, attr, 'name')
> df
$Pietje
  I1 I2 Value
1  1  1  0.11
2  1  2  0.12
3  2  1  0.21

$Jantje
  I1 I2 I3 Value
1  1  1  1 0.111
2  3  3  3 0.333



On Thu, May 8, 2008 at 7:40 AM, G. Draisma <g.draisma at erasmusmc.nl> wrote:
> Dear R-users,
> I have output files having a variable number of tables
> in the following format:
> -------------
> 1
> Pietje
> I1 I2 Value
> 1  1  0.11
> 1  2  0.12
> 2  1  0.21
>
> 2
> Jantje
> I1 I2 I3 Value
> 1  1  1  0.111
> 3  3  3  0.333
> ...
> -------------
>
> Would there be an easy way
> of turning this into (a list of) data.frames
> with names Pietje, Jantje
> and variables I1,I2,...Value?
> (I1,I2 are string or categorical,
> Value is double).
>
> I used an sed script to extract the tables
> from the file into separte file,
> but would rather be able to process
> the output files directly.
>
> Thanks,
> Gerrit.
>
> --
> Gerrit Draisma
> Department of Public Health
> Erasmus MC, University Medical Center Rotterdam
> Room AE-103
> P.O. Box 2040 3000 CA  Rotterdam The Netherlands
> Phone: +31 10 7043124 Fax: +31 10 010-7038474
> http://mgzlx4.erasmusmc.nl/pwp/?gdraisma
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>



-- 
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem you are trying to solve?