The R Project SVN – R – Diff – /branches/R-exp-R5/tests/Examples/methods-Ex.Rout.save



 
R version 2.12.0 Under development (unstable) (2010-08-30 r52845)
Copyright (C) 2010 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: x86_64-apple-darwin10.4.0/x86_64 (64-bit)
 
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
 

Object of class "myFrame"
  x          y z
1 1 -0.6264538 y
2 2  0.1836433 f
Slot "timestamps":
[1] "2010-08-30 17:11:47 PDT" "2010-08-30 17:11:47 PDT"
 
> 
> 
> setClass("myDateTime", contains = "POSIXt")
[1] "myDateTime"

Error in standardGeneric("numMax") : 
  No method or default matching the "..." arguments in numMax(1:10, pi, TRUE)
> 
> ## A generic version of paste(), dispatching on the "..." argument:
> setGeneric("paste", signature = "...")
Creating a generic for 'paste' in package '.GlobalEnv'
    (the supplied definition differs from and overrides the implicit generic
    in package 'base': Signatures differ:  (...), (sep, collapse))
[1] "paste"
> 
> setMethod("paste", "Number", function(..., sep, collapse) c(...))
[1] "paste"
> 

> implicitGeneric("with")
standardGeneric for "with" defined from package "base"
 
function (data, expr, ...) 
standardGeneric("with")
<environment: 0x1024ab028>
Methods may be defined for arguments: data
Use  showMethods("with")  for currently available ones.
> 
> 
> 

> 
> 
> 
> cleanEx()
 
detaching 'package:stats4'
 
> nameEx("is")
> ### * is
> 
> flush(stderr()); flush(stdout())

\examples{
showClass("trackMultiCurve")
}
\keyword{classes}
A shell of class documentation has been written to the connection
'stdout'.
> 
> promptClass("track", stdout())
\name{track-class}
\Rdversion{1.1}
\docType{class}

\examples{
showClass("track")
}
\keyword{classes}
A shell of class documentation has been written to the connection
'stdout'.
> ## End Don't show
> ## Not run: 
> ##D > promptClass("track")
> ##D A shell of class documentation has been written to the
> ##D file "track-class.Rd".

> ## Inheriting a reference class:  a matrix viewer
> setRefClass("matrixViewer", contains = "matrixEditor",
+     classMethods = list( view = function() matplot(data),
+         edit = # invoke previous method, then replot
+           function(i, j, value) {
+             callSuper(i, j, value) # but this doesn't yet work
+             view()
+           }))
> 
> ## Don't show: 
> ff = new("matrixEditor2", data = xMat)
> ## uncomment when callSuper() works
> ## ff$edit(2,2,0)
> ## ff$data
 
 
 
 
 
> ## ff$undo()
> ## stopifnot(all.equal(ff$data, xMat))
> removeClass("matrixEditor")
[1] TRUE
> removeClass("matrixEditor2")
[1] TRUE
> removeClass("matrixViewer")

        show(slot(object, what))
        cat("\n")
    }
    NULL
}
<environment: 0x102013778>
 
Signatures:
        object    
target  "oldClass"
defined "oldClass"

> 
> 
> ### * <FOOTER>
> ###
> cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
Time elapsed:  3.533 0.048 3.582 0 0 
> grDevices::dev.off()
null device 
          1 
> ###
> ### Local variables: ***

Rev 52823	Rev 52846
Line 1...	Line 1...
1		1
2	`R version 2.12.0 Under development (unstable) (2010-08-28 r52822)`	2	`R version 2.12.0 Under development (unstable) (2010-08-30 r52845)`
3	`Copyright (C) 2010 The R Foundation for Statistical Computing`	3	`Copyright (C) 2010 The R Foundation for Statistical Computing`
4	`ISBN 3-900051-07-0`	4	`ISBN 3-900051-07-0`
5	`Platform: x86_64-unknown-linux-gnu (64-bit)`	5	`Platform: x86_64-apple-darwin10.4.0/x86_64 (64-bit)`
6		6
7	`R is free software and comes with ABSOLUTELY NO WARRANTY.`	7	`R is free software and comes with ABSOLUTELY NO WARRANTY.`
8	`You are welcome to redistribute it under certain conditions.`	8	`You are welcome to redistribute it under certain conditions.`
9	`Type 'license()' or 'licence()' for distribution details.`	9	`Type 'license()' or 'licence()' for distribution details.`
10		10
Line 176...	Line 176...
176	`Object of class "myFrame"`	176	`Object of class "myFrame"`
177	`x y z`	177	`x y z`
178	`1 1 -0.6264538 y`	178	`1 1 -0.6264538 y`
179	`2 2 0.1836433 f`	179	`2 2 0.1836433 f`
180	`Slot "timestamps":`	180	`Slot "timestamps":`
181	`[1] "2010-08-29 08:25:45 BST" "2010-08-29 08:25:45 BST"`	181	`[1] "2010-08-30 17:11:47 PDT" "2010-08-30 17:11:47 PDT"`
182		182
183	`>`	183	`>`
184	`>`	184	`>`
185	`> setClass("myDateTime", contains = "POSIXt")`	185	`> setClass("myDateTime", contains = "POSIXt")`
186	`[1] "myDateTime"`	186	`[1] "myDateTime"`
Line 1046...	Line 1046...
1046	`Error in standardGeneric("numMax") :`	1046	`Error in standardGeneric("numMax") :`
1047	`No method or default matching the "..." arguments in numMax(1:10, pi, TRUE)`	1047	`No method or default matching the "..." arguments in numMax(1:10, pi, TRUE)`
1048	`>`	1048	`>`
1049	`> ## A generic version of paste(), dispatching on the "..." argument:`	1049	`> ## A generic version of paste(), dispatching on the "..." argument:`
1050	`> setGeneric("paste", signature = "...")`	1050	`> setGeneric("paste", signature = "...")`
1051	`Creating a generic for ‘paste’ in package ‘.GlobalEnv’`	1051	`Creating a generic for 'paste' in package '.GlobalEnv'`
1052	`(the supplied definition differs from and overrides the implicit generic`	1052	`(the supplied definition differs from and overrides the implicit generic`
1053	`in package ‘base’: Signatures differ: (...), (sep, collapse))`	1053	`in package 'base': Signatures differ: (...), (sep, collapse))`
1054	`[1] "paste"`	1054	`[1] "paste"`
1055	`>`	1055	`>`
1056	`> setMethod("paste", "Number", function(..., sep, collapse) c(...))`	1056	`> setMethod("paste", "Number", function(..., sep, collapse) c(...))`
1057	`[1] "paste"`	1057	`[1] "paste"`
1058	`>`	1058	`>`
Line 1317...	Line 1317...
1317	`> implicitGeneric("with")`	1317	`> implicitGeneric("with")`
1318	`standardGeneric for "with" defined from package "base"`	1318	`standardGeneric for "with" defined from package "base"`
1319		1319
1320	`function (data, expr, ...)`	1320	`function (data, expr, ...)`
1321	`standardGeneric("with")`	1321	`standardGeneric("with")`
1322	`<environment: 0x17a4888>`	1322	`<environment: 0x1024ab028>`
1323	`Methods may be defined for arguments: data`	1323	`Methods may be defined for arguments: data`
1324	`Use showMethods("with") for currently available ones.`	1324	`Use showMethods("with") for currently available ones.`
1325	`>`	1325	`>`
1326	`>`	1326	`>`
1327	`>`	1327	`>`
Line 1363...	Line 1363...
1363	`>`	1363	`>`
1364	`>`	1364	`>`
1365	`>`	1365	`>`
1366	`> cleanEx()`	1366	`> cleanEx()`
1367		1367
1368	`detaching ‘package:stats4’`	1368	`detaching 'package:stats4'`
1369		1369
1370	`> nameEx("is")`	1370	`> nameEx("is")`
1371	`> ### * is`	1371	`> ### * is`
1372	`>`	1372	`>`
1373	`> flush(stderr()); flush(stdout())`	1373	`> flush(stderr()); flush(stdout())`
Line 1747...	Line 1747...
1747	`\examples{`	1747	`\examples{`
1748	`showClass("trackMultiCurve")`	1748	`showClass("trackMultiCurve")`
1749	`}`	1749	`}`
1750	`\keyword{classes}`	1750	`\keyword{classes}`
1751	`A shell of class documentation has been written to the connection`	1751	`A shell of class documentation has been written to the connection`
1752	`‘stdout’.`	1752	`'stdout'.`
1753	`>`	1753	`>`
1754	`> promptClass("track", stdout())`	1754	`> promptClass("track", stdout())`
1755	`\name{track-class}`	1755	`\name{track-class}`
1756	`\Rdversion{1.1}`	1756	`\Rdversion{1.1}`
1757	`\docType{class}`	1757	`\docType{class}`
Line 1796...	Line 1796...
1796	`\examples{`	1796	`\examples{`
1797	`showClass("track")`	1797	`showClass("track")`
1798	`}`	1798	`}`
1799	`\keyword{classes}`	1799	`\keyword{classes}`
1800	`A shell of class documentation has been written to the connection`	1800	`A shell of class documentation has been written to the connection`
1801	`‘stdout’.`	1801	`'stdout'.`
1802	`> ## End Don't show`	1802	`> ## End Don't show`
1803	`> ## Not run:`	1803	`> ## Not run:`
1804	`> ##D > promptClass("track")`	1804	`> ##D > promptClass("track")`
1805	`> ##D A shell of class documentation has been written to the`	1805	`> ##D A shell of class documentation has been written to the`
1806	`> ##D file "track-class.Rd".`	1806	`> ##D file "track-class.Rd".`
Line 1909...	Line 1909...
1909	`> ## Inheriting a reference class: a matrix viewer`	1909	`> ## Inheriting a reference class: a matrix viewer`
1910	`> setRefClass("matrixViewer", contains = "matrixEditor",`	1910	`> setRefClass("matrixViewer", contains = "matrixEditor",`
1911	`+ classMethods = list( view = function() matplot(data),`	1911	`+ classMethods = list( view = function() matplot(data),`
1912	`+ edit = # invoke previous method, then replot`	1912	`+ edit = # invoke previous method, then replot`
1913	`+ function(i, j, value) {`	1913	`+ function(i, j, value) {`
1914	`+ edit.prev(i, j, value)`	1914	`+ callSuper(i, j, value) # but this doesn't yet work`
1915	`+ view()`	1915	`+ view()`
1916	`+ }))`	1916	`+ }))`
1917	`>`	1917	`>`
1918	`> ## Don't show:`	1918	`> ## Don't show:`
1919	`> ff = new("matrixEditor2", data = xMat)`	1919	`> ff = new("matrixEditor2", data = xMat)`
-		1920	`> ## uncomment when callSuper() works`
1920	`> ff$edit(2,2,0)`	1921	`> ## ff$edit(2,2,0)`
1921	`> ff$data`	1922	`> ## ff$data`
1922	`[,1] [,2] [,3]`	-
1923	`[1,] 1 5 9`	-
1924	`[2,] 2 0 10`	-
1925	`[3,] 3 7 11`	-
1926	`[4,] 4 8 12`	-
1927	`> ff$undo()`	1923	`> ## ff$undo()`
1928	`> stopifnot(all.equal(ff$data, xMat))`	1924	`> ## stopifnot(all.equal(ff$data, xMat))`
1929	`> removeClass("matrixEditor")`	1925	`> removeClass("matrixEditor")`
1930	`[1] TRUE`	1926	`[1] TRUE`
1931	`> removeClass("matrixEditor2")`	1927	`> removeClass("matrixEditor2")`
1932	`[1] TRUE`	1928	`[1] TRUE`
1933	`> removeClass("matrixViewer")`	1929	`> removeClass("matrixViewer")`
Line 2893...	Line 2889...
2893	`show(slot(object, what))`	2889	`show(slot(object, what))`
2894	`cat("\n")`	2890	`cat("\n")`
2895	`}`	2891	`}`
2896	`NULL`	2892	`NULL`
2897	`}`	2893	`}`
2898	`<environment: 0x17653a4>`	2894	`<environment: 0x102013778>`
2899		2895
2900	`Signatures:`	2896	`Signatures:`
2901	`object`	2897	`object`
2902	`target "oldClass"`	2898	`target "oldClass"`
2903	`defined "oldClass"`	2899	`defined "oldClass"`
Line 3242...	Line 3238...
3242	`>`	3238	`>`
3243	`>`	3239	`>`
3244	`> ### * <FOOTER>`	3240	`> ### * <FOOTER>`
3245	`> ###`	3241	`> ###`
3246	`> cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")`	3242	`> cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")`
3247	`Time elapsed: 4.278 0.045 4.324 0 0`	3243	`Time elapsed: 3.533 0.048 3.582 0 0`
3248	`> grDevices::dev.off()`	3244	`> grDevices::dev.off()`
3249	`null device`	3245	`null device`
3250	`1`	3246	`1`
3251	`> ###`	3247	`> ###`
3252	`> ### Local variables: ***`	3248	`> ### Local variables: ***`

The R Project SVN R

(root)/branches/R-exp-R5/tests/Examples/methods-Ex.Rout.save @ 77458 – Rev 52823 → 52846