Discussion :

[habasque]

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 :

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
 
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 :

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

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

[pitipoisson]

Bonjour,

Que veux-tu dire par

fonction située dans un sous-programme

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

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 ?

[habasque]

Oui je veux que la fonction soit dans un fichier séparé.

Code :

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

1
2
3
 
Error in function ()  : 
  impossible de trouver la fonction "import.donnees.f"

[pitipoisson]

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

Code :

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

source("<chemin_vers_le_fichier>")

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

[habasque]

j'ai l'erreur suivante

Code :

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

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 :

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

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

et le programme ImportDonnees:

Code :

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

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

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

[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 :

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

getwd()

et tu le modifie avec

Code :

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

setwd("<chemin_vers_le_dossier>")

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

Code :

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

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 :

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

  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.

[habasque]

salut,

merci maintenant ca fonctionne !

a+