The R Project SVN – R – Diff – /trunk/tests/Examples/tools-Ex.Rout.save

-R Under development (unstable) (2013-07-04 r63177) -- "Unsuffered Consequences"
+R Under development (unstable) (2013-07-06 r63201) -- "Unsuffered Consequences"
 Copyright (C) 2013 The R Foundation for Statistical Computing
 Platform: x86_64-unknown-linux-gnu (64-bit)
 R is free software and comes with ABSOLUTELY NO WARRANTY.
 You are welcome to redistribute it under certain conditions.
 [1] "* "
 $enumFormat
 function (n)
 sprintf("%d. ", n)
-<environment: 0x2ecf050>
+<environment: 0x1dcc408>
 $showURLs
 [1] FALSE
 $code_quote
 [1] "* "
 $enumFormat
 function (n)
 sprintf("%d. ", n)
-<environment: 0x2ecf050>
+<environment: 0x1dcc408>
 $showURLs
 [1] FALSE
 $code_quote
 [1] "* "
 $enumFormat
 function (n)
 sprintf("%d. ", n)
-<environment: 0x2ecf050>
+<environment: 0x1dcc408>
 $showURLs
 [1] FALSE
 $code_quote
+>
 > flush(stderr()); flush(stdout())
+>
 > ### Name: assertCondition
 > ### Title: Asserting Error Conditions
-> ### Aliases: assertCondition
+> ### Aliases: assertCondition assertWarning assertError
 > ### Keywords: programming error
+>
 > ### ** Examples
+>
+>   assertError(sqrt("abc"))
+>   assertWarning(matrix(1:8, 4,3))
+>
-> assertCondition( ""-1 ) # ok, as it signals a "condition"
+>   assertCondition( ""-1 ) # ok, any condition would satisfy this
+>
 > try( assertCondition(sqrt(2), "warning") )
 Error in assertCondition(sqrt(2), "warning") :
-  Failed to get expected warning in evaluating sqrt(2)
+  Failed to get warning in evaluating sqrt(2)
-> ## .. Failed to get expected warning in evaluating sqrt(2)
+> ## .. Failed to get warning in evaluating sqrt(2)
 >      assertCondition(sqrt("abc"), "error")   # ok
 > try( assertCondition(sqrt("abc"), "warning") )# -> error: had no warning
 Error in assertCondition(sqrt("abc"), "warning") :
-  Got simpleError (non-numeric argument to mathematical function) in evaluating sqrt("abc"); expected warning
+  Got simpleError in evaluating sqrt("abc"); wanted warning
-> ## verbose ==> show error message additionally:
->      assertCondition(sqrt("abc"), verbose=TRUE, "error")
+>      assertCondition(sqrt("abc"), "error")
-Asserted error: non-numeric argument to mathematical function
+>   ## identical to assertError() call above
+>
 > assertCondition(matrix(1:5, 2,3), "warning")
 > try( assertCondition(matrix(1:8, 4,3), "error") )
 Error in assertCondition(matrix(1:8, 4, 3), "error") :
-  Got simpleWarning (data length [8] is not a sub-multiple or multiple of the number of columns [3]) in evaluating matrix(1:8, 4, 3); expected error
+  Got simpleWarning in evaluating matrix(1:8, 4, 3); wanted error
 > ## .. Failed to get expected error ....
+>
 > ## either warning or worse:
-> assertCondition(matrix(1:8, 4,3), verbose=TRUE, "error","warning") # OK
+> assertCondition(matrix(1:8, 4,3), "error","warning") # OK
-Asserted warning: data length [8] is not a sub-multiple or multiple of the number of columns [3]
-> assertCondition(matrix(1:8, 4, 3), "warning", "error") # ditto
+> assertCondition(matrix(1:8, 4, 3), "warning") # OK
+>
 > ## when both are signalled:
 > ff <- function() { warning("my warning"); stop("my error") }
 >     assertCondition(ff(), "warning")
+> ## but assertWarning does not allow an error to follow
+> try(assertWarning(ff()))
+Error in assertWarning(ff()) :
+  Got warning in evaluating ff(), but also an error
 >     assertCondition(ff(), "error")          # ok
 > assertCondition(ff(), "error", "warning") # ok (quietly, catching warning)
+>
 > ## assert that assertC..() does not assert [and use *one* argument only]
 > assertCondition( assertCondition(sqrt( 2   ), "warning") )
 > assertCondition( assertCondition(sqrt("abc"), "warning"), "error")
 > assertCondition( assertCondition(matrix(1:8, 4,3), "error"),
-+                 "error", verbose=TRUE)
++                 "error")
-Asserted error: Got simpleWarning (data length [8] is not a sub-multiple or multiple of the number of columns [3]) in evaluating matrix(1:8, 4, 3); expected error
+>
+>
+>
 > cleanEx()
 > nameEx("bibstyle")
 +     pages = "211-252"))
+>
 > bibstyle("unsorted", sortKeys = function(refs) seq_along(refs),
 +     fmtPrefix = function(paper) paste0("[", paper$.index, "]"),
 +        .init = TRUE)
-<environment: 0x3406378>
+<environment: 0x236fc30>
 > print(refs, .bibstyle = "unsorted")
 [1] R Core Team (2013). _R: A Language and Environment for Statistical
 Computing_. R Foundation for Statistical Computing, Vienna, Austria.
 <URL: http://www.R-project.org>.
 > ### Keywords: utilities documentation
+>
 > ### ** Examples
+>
 > str(vignetteEngine("Sweave"))
-List of 5
+List of 6
  $ name   : chr "Sweave"
  $ package: chr "utils"
  $ pattern: chr "[.][rRsS](nw|tex)$"
  $ weave  :function (...)
  $ tangle :function (...)
+ $ aspell :List of 2
+  ..$ filter : chr "Sweave"
+  ..$ control: chr "-t"
+>
+>
+>
 > cleanEx()
 > nameEx("writePACKAGES")
+>
 > ### * <FOOTER>
 > ###
 > options(digits = 7L)
 > base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed:  0.471 0.023 0.593 0 0
+Time elapsed:  0.247 0.005 0.254 0 0
 > grDevices::dev.off()
 null device
 > ###
 > ### Local variables: ***

The R Project SVN R

(root)/trunk/tests/Examples/tools-Ex.Rout.save – Rev 63178 → 63202