Appel de fonction dans un sous-prog

Version imprimable

Bonjour,

Je souhaite dans un programme principal appeler une fonction située dans un sous-programme.
Je début en R, je ne vois pas trop comment m'y prendre.

Pour l'instant, je fais la chose suivante:

programme principal:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 tm <- tktoplevel(height=500,width=1000) topMenu <- tkmenu(tm) tkconfigure(tm,menu=topMenu) tkwm.title(tm,"TITRE") import <- tkmenu(topMenu,tearoff=FALSE) ##Second niveau de menu # Menu déroulant de "Import de données" tkadd(import,"command",label="UVC", command = import.donnees.f) ## Premier niveau de menu tkadd(topMenu,"cascade",label="Import de données",menu=import) tkadd(topMenu,"command",label="Quitter", command=function() tkdestroy(tm)) tkfocus(tm)
sous-programme:
Code:

1 2 3 4 import.donnees.f = function() { ...}
il se trouve que rien ne se passe à l'appel de import.donnees.f

faut-il que j'ajoute un require ou autre en début de programme principal ?

merci d'avance

26/03/2009, 16h57
pitipoisson

Bonjour,

Que veux-tu dire par

Citation:

Envoyé par habasque

fonction située dans un sous-programme

? Est-elle définie dans un fichier séparée, dans une autre fonction,... ?

Citation:

Envoyé par habasque

il se trouve que rien ne se passe à l'appel de import.donnees.f

Pas même une erreur ? N'as-tu pas oublié les parenthèses ?
26/03/2009, 17h10
habasque

Error in function
Oui je veux que la fonction soit dans un fichier séparé.
Code:

1 2 3 Error in function () : impossible de trouver la fonction "import.donnees.f"
26/03/2009, 17h14
pitipoisson

OK, dans ce cas, tu dois "sourcer" (~exécuter ligne à ligne) le fichier dans lequel est définie ta fonction :

Code:

source("<chemin_vers_le_fichier>")

avant de l'utiliser.
Le chemin peut être relatif ou absolu.

Error in file

j'ai l'erreur suivante

Code:

1
2
3
4
5
6
 
Error in file(file, "r", encoding = encoding) : 
  impossible d'ouvrir la connexion
De plus : Warning message:
In file(file, "r", encoding = encoding) :
  impossible d'ouvrir le fichier 'ImportDonnees' : No such file or directory

avec le code, pour le programme principal :

Code:

1
2
3
4
5
 
...
source("ImportDonnees")
lectureFichiers(fileName1,fileName2,fileName3)
...

et le programme ImportDonnees:

Code:

1
2
3
 
lectureFichiers = function(fileName1,fileName2,fileName3) {
...

je précise que les 2 programmes sont dans le même répertoire

26/03/2009, 18h37
pitipoisson
Ce qui est important, c'est surtout le chemin par rapport au répertoire de travail de R. Ce répertoire tu le trouves avec la commande

Code:

getwd()

et tu le modifie avec

Code:

setwd("<chemin_vers_le_dossier>")

Ensuite, si c'est bien le répertoire où sont tes scripts R :

Code:

source("./ImportDonnees.R")

Ce qui doit se passer dans ton cas :
- tu exécutes le script_1.R ligne à ligne à l'aide d'un IDE (ce sont les lignes qui sont envoyées à R, pas le fichier qui est sourcé)...
- tu évalues la ligne
  
  Code:
  
  source("./script_2.R")
  
  sachant que les deux scripts sont dans le même répertoire...
- ça foire parce que le répertoire de travail n'a rien à voir avec l'emplacement du script_1.R (pareil pour script_2.R) !
Est-ce que je me trompe ?

Edit: l'erreur veut juste dire que R ne trouve pas le fichier.
27/03/2009, 11h43
habasque

Sourcer le sous-prog

salut,

merci maintenant ca fonctionne !

a+