Discussion :

[Lou.lou]

Bonjour,

Y a-t-il possibilité de remplacer automatiquement une variable qui revient plusieurs dizaines de fois dans un long script par une autre variable sans le faire manuellement avec (copier/coller)

merci et bonne journée.

[tototode]

Bonjour,

ça semble tout a fait possible, mais sans une idée de ton code et de ce que tu cherches à faire il est difficile de te proposer une solution adaptée.

cdlt

[Lou.lou]

Bonjour tototode,

t'a raison, voici une partie du code:

Code :

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

1
2
3
4
5
 
modbaymay1<-lm(mass~long1, data=may)
modbaymay2<-lm(mass~long2, data=may)
modbaymay3<-lm(mass~long3, data=may)
modbaymay4<-lm(mass~long4, data=may)

je souhaite remplacer "mass" par "cover"

[tototode]

re,

tu peux créer cette fonction :

Code :

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

1
2
3
4
5
6
f <- function (pat, rep) 
{
    code <- readLines("clipboard")
    code <- gsub(pat, rep, code)
    writeLines(code, "clipboard")
}

Tu copies-colles ton script ou tu modifies la la première ligne de code de f pour lire ton script et ensuite tu fais :f("mass", "cover") et une fois executer tu fais un coller dans le fichier qui t'intéresse. Sinon tu remplaces la dernière ligne de code par un writeLines vers un chemin de fichier.

cdlt

[Lou.lou]

Salut tototode

Tu copies-colles ton script ou tu modifies la la première ligne de code de f pour lire ton script

cette partie est plus ou moins claire mais je pense avoir comprie:

ensuite tu fais :f("mass", "cover") et une fois executer tu fais un coller dans le fichier qui t'intéresse

là je pense ne pas avoir très bien saisis. au final voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
f <- function (pat, rep) 
{
    code <- readLines("clipboard")
    code <- gsub(pat, rep, code)
    writeLines(code, "clipboard")
}
modbaymay1<-lm(mass~long1, data=may)
modbaymay2<-lm(mass~long2, data=may)
modbaymay3<-lm(mass~long3, data=may)
modbaymay4<-lm(mass~long4, data=may)
 
f("mass", "cover")
Warning message:
In readLines("clipboard") : incomplete final line found on 'clipboard'

comme tu peux le voir y a une coquille

[tototode]

re,

en fait il n'y a pas de coquilles. L'idée c'est de :
i) tu copies colles le code de la fonction f dans ta session de travail
ii) tu copies colles le code que tu veux modifier et que tu as stockés dans un fichier .txt ou .R
iii) tu utilises la fonction f("mass", "cover")
iv) tu colles le résultat dans ton fichier .txt ou .R

après ce qui est aussi possible de faire c'est de lire tout un script et de modifier mass par cover dans le script et d'écrire le résultat du changement dans un nouveau script.

cdlt

[Lou.lou]

Re,

J'avoue que j'ai quelques lacunes avec les fonctions que tu m'as donné, bon je vais cogiter ça calmement plus tard.

merci tototode