Discussion :

[hoccha]

Hello,
J'ai un petit problème de lecture d'un fichier. Il semble simple... mais je butte dessus ...
Soit ‘personsRegions.txt’ un fichier texte qui a la structure suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
aaa	A
ret	B
rfg	C	D	E
dfh	
lft	F

Je voudrais pouvoir lire ce fichier et obtenir une liste comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
> region <- list( aaa=c("A") , ret=c("B") , rfg=c("C","D","E") , dfh=c() , lft=c("F") )
> region
$aaa
[1] "A"
 
$ret
[1] "B"
 
$rfg
[1] "C" "D" "E"
 
$dfh
NULL
 
$lft
[1] "F"

J’ai déjà testé read.table(), scan() et readLines()…
Merci d’avance !

[lilly74]

Bonjour,

avez-vous essayé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

d <- read.table("C:\\Users\\utilisateur\\Downloads\\personsRegions.txt", blank.lines.skip=F)

Cela produit un warning mais on a bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
d
   V1 V2 V3 V4
1 aaa  A      
2 ret  B      
3 rfg  C  D  E
4 dfh         
5 lft  F

Bonne continuation

[hoccha]

Hello,

Merci lilly74 je ne connaissais pas option blank.lines.skip=F.
J'ai fini par trouver une solution via le scan() pour lire ligne par ligne le fichier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
read.infoFile <- function(fileName){
	res <- list()
	ii <- 1
	aLine <- scan(file=fileName,what=character(),skip=0,nline=1)
	while(length(aLine) > 0){
		res <- c(res , list(aLine[-1]))
		names(res)[ii] <- aLine[1]
		aLine <- scan(file=fileName,what=character(),skip=ii,nline=1)
		ii <- ii + 1
	}
	res
}

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
> region <- read.infoFile(file="personsRegions.txt")
Read 2 items
Read 2 items
Read 4 items
Read 1 item
Read 2 items
Read 0 items
> region
$aaa
[1] "A"
 
$ret
[1] "B"
 
$rfg
[1] "C" "D" "E"
 
$dfh
character(0)
 
$lft
[1] "F"
 
>