Hi,
It would be better to give an example.
If your dataset is like the one attached:
con<-file("Trial1.txt")
Lines1<- readLines(con)
close(con)
#If the data you wanted to extract is numeric and the header and footer are
characters,
dat1<-read.table(text=Lines1[-grep("[A-Za-z]",Lines1)],sep="\t",header=FALSE)
dat1
# V1 V2 V3 V4 V5
#1 38 43 39 44 45
#2 39 44 36 49 46
#3 42 45 47 49 37
#4 34 43 39 45 45
#5 38 42 39 44 47
#6 43 44 46 42 37
#7 32 49 38 42 45
#8 34 45 35 49 46
#9 44 45 46 49 37
#10 34 43 39 48 49
#11 38 42 39 47 47
#12 43 44 46 42 37
#13 37 43 39 44 45
#14 39 42 36 49 46
#15 42 45 47 49 37
#or
You mentioned that the data is repeated "every so many lines". Here also,
there is repeating pattern.
head(Lines1,10)
#[1] "Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam
nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat #volutpat.
"
#[2] "Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper
suscipit #lobortis"
# [3] "38\t43\t39\t44\t45"
#[4] "39\t44\t36\t49\t46"
#[5] "42\t45\t47\t49\t37"
#[6] "Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse
molestie #consequat."
#[7] "Vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et
iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis
#dolore te feugait nulla facilisi."
#[8] "34\t43\t39\t45\t45"
#[9] "38\t42\t39\t44\t47"
#[10] "43\t44\t46\t42\t37"
dat2<-read.table(text=Lines1[rep(rep(c(FALSE,TRUE),times=c(2,3)),5)],sep="\t",header=FALSE)
identical(dat1,dat2)
#[1] TRUE
A.K.
>I have a text file that is nicely formatted (tab separated). However, it has
>some header and footer information after every so many lines. I do not >want
>to read this information in my dataframe. What is the best
way to read this data into R. Thanks for all the help!
Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh
euismod tincidunt ut laoreet dolore magna aliquam erat volutpat.
Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit
lobortis
38 43 39 44 45
39 44 36 49 46
42 45 47 49 37
Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie
consequat.
Vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto
odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te
feugait nulla facilisi.
34 43 39 45 45
38 42 39 44 47
43 44 46 42 37
Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh
euismod tincidunt ut laoreet dolore magna aliquam erat volutpat.
Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit
lobortis
32 49 38 42 45
34 45 35 49 46
44 45 46 49 37
Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie
consequat.
Vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto
odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te
feugait nulla facilisi.
34 43 39 48 49
38 42 39 47 47
43 44 46 42 37
Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh
euismod tincidunt ut laoreet dolore magna aliquam erat volutpat.
Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit
lobortis
37 43 39 44 45
39 42 36 49 46
42 45 47 49 37
Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie
consequat.
Vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto
odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te
feugait nulla facilisi.
______________________________________________
R-help@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.
