Problème de guillemets

[Christine Proença]

Bonjour,

J'ai dans un fichier de paramétrage parametre une colonne selec qui contient des expressions logiques de sélection de ligne d'un data.frame dat.
Dans un programme, je lis ce fichier de paramétrage en utilisant la fonction read.table et j'évalue, pour chaque ligne i du fichier de paramétrage, le contenu de l'expression de sélection, afin de réaliser des analyses sur différentes sous-sélections.
Il se pose un problème lorsque l'expression de sélection contient des guillemets, par exemple :

Code : Tout sélectionner

population=="population1"

(population étant le nom d'une colonne de dat et population1 étant un des niveaux du facteur population).
Dans le programme j'utilise le code suivant pour ne sélectionner que les lignes du data.frame dat qui correspondent à cette condition :

Code : Tout sélectionner

dat[with(dat, eval(parse(text = as.character(parametre$selec[i])))),]

et l'expression de sélection récupérée ne contient plus les guillemets. Dans cet exemple,

Code : Tout sélectionner

as.character(parametre$selec[i])

contient population == population1
J'ai essayé en protégeant les guillemets par des anti-slash (population==\"population1\") dans le fichier de paramétrage, mais je n'arrive pas à mes fins.
Auriez-vous une idée pour me sortir de ce problème ?

Merci d'avance,
Christine

[Olivier Delaigue]

Je n'ai pas tout saisi, mais peut-être que bquote correspondrait.

[François Bonnot]

et l'expression de sélection récupérée ne contient plus les guillemets

Bonjour,
Pourtant ce code fonctionne :

Code : Tout sélectionner

> parametre
                      selec
1 population=="population1"
2 population=="population2"
> class(parametre$selec)
[1] "factor"
> as.character(parametre$selec[1])
[1] "population==\"population1\""
> parse(text=as.character(parametre$selec[1]))
expression(population=="population1")
attr(,"srcfile")
<text>
> population <- "population1"
> eval(parse(text=as.character(parametre$selec[1])))
[1] TRUE
> eval(parse(text=as.character(parametre$selec[2])))
[1] FALSE


FB

[Christine Proença]

Bonjour,

Merci pour vos réponses. François, mon problème est que quand je lis le fichier de paramétrage qui contient population=="population1", par le code

Code : Tout sélectionner

parametre <- read.table("param.txt", sep = "\t", h = T)


j'obtiens ce résultat dans R :

Code : Tout sélectionner

> parametre
                    selec
1 population==population1
2 population==population2


ie sans les guillemets...
Mon problème consiste donc à récupérer le contenu du fichier de paramétrage tel qu'il est (population=="population1"), avec les guillemets.

Merci d'avance
Christine

[Julien Barnier]

Et en ajoutant l'option quote="" dans read.table() ?

[Christine Proença]

Dans ce cas, j'obtiens

Code : Tout sélectionner

 > parametre
         selec
"pop==""population1"""

Christine

[Julien Barnier]

Pourriez-vous copier/coller les première lignes de votre fichier de paramétrage ?

Parce qu'avec le fichier suivant :

Code : Tout sélectionner

selec   toto                                                       
population=="population1"       titi                               
population=="popultaion2"       tata


Et le code suivant :

Code : Tout sélectionner

parametre <- read.table("/tmp/param.txt", sep = "\t", h = T,quote="")


J'obtiens ceci :

Code : Tout sélectionner

R> parametre
                      selec toto
1 population=="population1" titi
2 population=="popultaion2" tata