Hello,

I would like to read sets of files within a folder, perhaps using recursive
methods.

Right now, I rename the files before import.
It would be even better to do this without renaming files, without providing
explicit filenames, perhaps by importing files based on chronology,
and translating each filename into a header?

Please excuse my ignorance, and help cure my clunky programming
(below) with more elegant code.

Thanks,
Warren





data0 <-read.delim("t.txt", quote="", as.is=TRUE)

data1 <-read.delim("t (1).txt", quote="", as.is=TRUE)

data2 <-read.delim("t (2).txt", quote="", as.is=TRUE)

data3 <-read.delim("t (3).txt", quote="", as.is=TRUE)

data4 <-read.delim("t (4).txt", quote="", as.is=TRUE)

data5 <-read.delim("t (5).txt", quote="", as.is=TRUE)

data6 <-read.delim("t (6).txt", quote="", as.is=TRUE)

data7 <-read.delim("t (7).txt", quote="", as.is=TRUE)

data8 <-read.delim("t (8).txt", quote="", as.is=TRUE)

data9 <-read.delim("t (9).txt", quote="", as.is=TRUE)

data10 <-read.delim("t (10).txt", quote="", as.is=TRUE)

data11 <-read.delim("t (11).txt", quote="", as.is=TRUE)

data12 <-read.delim("t (12).txt", quote="", as.is=TRUE)

data13 <-read.delim("t (13).txt", quote="", as.is=TRUE)

data14 <-read.delim("t (14).txt", quote="", as.is=TRUE)

data15 <-read.delim("t (15).txt", quote="", as.is=TRUE)

data16 <-read.delim("t (16).txt", quote="", as.is=TRUE)

data17 <-read.delim("t (17).txt", quote="", as.is=TRUE)

data18 <-read.delim("t (18).txt", quote="", as.is=TRUE)

data19 <-read.delim("t (19).txt", quote="", as.is=TRUE)

data20 <-read.delim("t (20).txt", quote="", as.is=TRUE)

data21 <-read.delim("t (21).txt", quote="", as.is=TRUE)

data22 <-read.delim("t (22).txt", quote="", as.is=TRUE)

data23 <-read.delim("t (23).txt", quote="", as.is=TRUE)

data24 <-read.delim("t (24).txt", quote="", as.is=TRUE)

data25 <-read.delim("t (25).txt", quote="", as.is=TRUE)

data26 <-read.delim("t (26).txt", quote="", as.is=TRUE)

data27 <-read.delim("t (27).txt", quote="", as.is=TRUE)

data28 <-read.delim("t (28).txt", quote="", as.is=TRUE)

data29 <-read.delim("t (29).txt", quote="", as.is=TRUE)

data30 <-read.delim("t (30).txt", quote="", as.is=TRUE)

data31 <-read.delim("t (31).txt", quote="", as.is=TRUE)

data32 <-read.delim("t (32).txt", quote="", as.is=TRUE)

data33 <-read.delim("t (33).txt", quote="", as.is=TRUE)

data34 <-read.delim("t (34).txt", quote="", as.is=TRUE)

data35 <-read.delim("t (35).txt", quote="", as.is=TRUE)

data36 <-read.delim("t (36).txt", quote="", as.is=TRUE)

data37 <-read.delim("t (37).txt", quote="", as.is=TRUE)

data38 <-read.delim("t (38).txt", quote="", as.is=TRUE)

data39 <-read.delim("t (39).txt", quote="", as.is=TRUE)

data40 <-read.delim("t (40).txt", quote="", as.is=TRUE)

data41 <-read.delim("t (41).txt", quote="", as.is=TRUE)

data42 <-read.delim("t (42).txt", quote="", as.is=TRUE)

data43 <-read.delim("t (43).txt", quote="", as.is=TRUE)

data44 <-read.delim("t (44).txt", quote="", as.is=TRUE)

data45 <-read.delim("t (45).txt", quote="", as.is=TRUE)

data46 <-read.delim("t (46).txt", quote="", as.is=TRUE)

data47 <-read.delim("t (47).txt", quote="", as.is=TRUE)

data48 <-read.delim("t (48).txt", quote="", as.is=TRUE)

data49 <-read.delim("t (49).txt", quote="", as.is=TRUE)

data50 <-read.delim("t (50).txt", quote="", as.is=TRUE)

data51 <-read.delim("t (51).txt", quote="", as.is=TRUE)

data52 <-read.delim("t (52).txt", quote="", as.is=TRUE)

data53 <-read.delim("t (53).txt", quote="", as.is=TRUE)

data54 <-read.delim("t (54).txt", quote="", as.is=TRUE)

data55 <-read.delim("t (55).txt", quote="", as.is=TRUE)

data56 <-read.delim("t (56).txt", quote="", as.is=TRUE)

data57 <-read.delim("t (57).txt", quote="", as.is=TRUE)

data58 <-read.delim("t (58).txt", quote="", as.is=TRUE)

data59 <-read.delim("t (59).txt", quote="", as.is=TRUE)

data60 <-read.delim("t (60).txt", quote="", as.is=TRUE)

data61 <-read.delim("t (61).txt", quote="", as.is=TRUE)

data62 <-read.delim("t (62).txt", quote="", as.is=TRUE)

data63 <-read.delim("t (63).txt", quote="", as.is=TRUE)

data64 <-read.delim("t (64).txt", quote="", as.is=TRUE)

data65 <-read.delim("t (65).txt", quote="", as.is=TRUE)

data66 <-read.delim("t (66).txt", quote="", as.is=TRUE)

data67 <-read.delim("t (67).txt", quote="", as.is=TRUE)

data68 <-read.delim("t (68).txt", quote="", as.is=TRUE)

data69 <-read.delim("t (69).txt", quote="", as.is=TRUE)

data70 <-read.delim("t (70).txt", quote="", as.is=TRUE)

data71 <-read.delim("t (71).txt", quote="", as.is=TRUE)

data72 <-read.delim("t (72).txt", quote="", as.is=TRUE)

data73 <-read.delim("t (73).txt", quote="", as.is=TRUE)

data74 <-read.delim("t (74).txt", quote="", as.is=TRUE)

data75 <-read.delim("t (75).txt", quote="", as.is=TRUE)



dataALL
<-cbind(data0,data1,data2,data3,data4,data5,data6,data7,data8,data9,data10,data11,data12,data13,data14,data15,data16,data17,data18,data19,data20,data21,data22,data23,data24,data25,data26,data27,data28,data29,data20,data31,data32,data33,data34,data35,data36,data37,data38,data39,data40,data41,data42,data43,data44,data45,data46,data47,data48,data49,data50,data51,data52,data53,data54,data55,data56,data57,data58,data59,data60,data61,data62,data63,data64,data65,data66,data67,data68,data69,data70,data71,data72,data73,data74,data75)



write.table(dataALL,"0905p528.txt", quote=FALSE)
-- 
geelewis@gmail.com

	[[alternative HTML version deleted]]

