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
Partager