The R Project SVN R

Rev

Rev 30912 | Rev 47616 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 30912 Rev 30915
Line 8... Line 8...
8 
  These identifiers can be used to remove a callback.
 8 
  These identifiers can be used to remove a callback.
9 
}
 9 
}
10 
\usage{
 10 
\usage{
11 
getTaskCallbackNames()
 11 
getTaskCallbackNames()
12 
}
 12 
}
13 
\arguments{
 - 
 
14 
}
 - 
 
15 
\value{
 13 
\value{
16 
  A character vector giving the name for each of the
 14 
  A character vector giving the name for each of the
17 
  registered callbacks which are invoked when
 15 
  registered callbacks which are invoked when
18 
  a top-level task is completed successfully.
 16 
  a top-level task is completed successfully.
19 
  Each name is the one used when registering
 17 
  Each name is the one used when registering
Line 32... Line 30...
32 
  \code{\link{removeTaskCallback}},
 30 
  \code{\link{removeTaskCallback}},
33 
  \code{\link{taskCallbackManager}}\\
 31 
  \code{\link{taskCallbackManager}}\\
34 
  \url{http://developer.r-project.org/TaskHandlers.pdf}
32 
  \url{http://developer.r-project.org/TaskHandlers.pdf}
35 
}
 33 
}
36 
\examples{
 34 
\examples{
37 
  n <- addTaskCallback(function(expr, value, ok, visible) {
 35 
 n <- addTaskCallback(function(expr, value, ok, visible) {
38 
                         cat("In handler\n")
 36 
			cat("In handler\n")
39 
                         return(TRUE)
 37 
			return(TRUE)
40 
                       }, name = "simpleHandler")
 38 
		      }, name = "simpleHandler")
41 
 
 39 
 
42 
  getTaskCallbackNames()
 40 
 getTaskCallbackNames()
43 
 
 41 
 
44 
    # now remove it by name
 42 
   # now remove it by name
45 
  removeTaskCallback("simpleHandler")
 43 
 removeTaskCallback("simpleHandler")
46 
 
 44 
 
47 
 
 45 
 
48 
  h <- taskCallbackManager()
 46 
 h <- taskCallbackManager()
49 
  h$add(function(expr, value, ok, visible) {
 47 
 h$add(function(expr, value, ok, visible) {
50 
                         cat("In handler\n")
 48 
			cat("In handler\n")
51 
                         return(TRUE)
 49 
			return(TRUE)
52 
                       }, name = "simpleHandler")
 50 
		      }, name = "simpleHandler")
53 
  getTaskCallbackNames()
 51 
 getTaskCallbackNames()
54 
  removeTaskCallback("R-taskCallbackManager")
 52 
 removeTaskCallback("R-taskCallbackManager")
55 
}
 53 
}
56 
\keyword{environment}
 54 
\keyword{environment}