Discussion :

[kmezhoud]

Bonjour,
Voici un simple boutton Clear. Je voudrais bien que la fonction du boutton Clear efface un objet que j'ai définie avant "A" .
J'ai testé: rm("A"), rm(A), remove(A).
Merci
kmezhoud

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
 
require(tcltk) || stop("Package tcltk non disponible.") 
library(tcltk)
library(rgl)
 
A = 1
butClear <- function() {
 
 rm(A)
 
##Pareil ceci n'efface pas les objets même si je spécifie l'envir avec "envir=.GlobalEnv)"
##rm(list=ls())
 
  tt <- tktoplevel()
  tkpack( tkbutton(tt, text='Clear', command=function()tkdestroy(tt)),
          side='bottom')
  tkbind(tt,'<Key>', function()tkdestroy(tt) )
 
  tkwait.window(tt)
}
butClear()

Code :

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

1
2
3
4
 
MESSAGE d'ERREUR:
Warning message:
In remove("A") : object 'A' not found

[kmezhoud]

Je crois que je dois ajouter cette ligne

Code :

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

1
2
 
 Sys.chmod(getwd(), mode = "0777", use_umask = TRUE)

Donner le permission pour écrire dans le work directory (getwd())

[kmezhoud]

C'est un détail lié à R.
il faut définir l'environnement où se l'objet.

Code :

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

1
2
 
rm(A, envir=globalenv())