[R/Tcl/Tk] Effacer un objet prédéfini avec le bouton clear

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:

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:

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

Je crois que je dois ajouter cette ligne
Code:

1 2 Sys.chmod(getwd(), mode = "0777", use_umask = TRUE)
Donner le permission pour écrire dans le work directory (getwd())

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

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