1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
# $Id: capture.R 277 2004-01-21 04:31:25Z warnes $
#
# $Log$
# Revision 1.4 2004/01/21 04:31:25 warnes
# - Mark sprint() as depreciated.
# - Replace references to sprint with capture.output()
# - Use match.arg for halign and valign arguments to textplot.default.
# - Fix textplot.character so that a vector of characters is properly
# displayed. Previouslt, character vectors were plotted on top of each
# other.
#
# Revision 1.3 2003/11/10 22:11:13 warnes
#
# - Add files contributed by Arni Magnusson
# <arnima@u.washington.edu>. As well as some of my own.
#
# Revision 1.2 2003/04/04 13:45:21 warnes
#
# - Allow optional arguments to sprint to be passed to print
#
# Revision 1.1 2003/04/02 22:28:32 warnes
#
# - Added file 'capture.R' containing capture() and sprint().
#
#
capture <- function( expression, collapse="\n")
{
warning("Depreciated. Use capture.output(...) from base instead.")
resultText <- capture.output( expression )
return( paste( c(resultText, ""), collapse=collapse, sep="" ) )
# the reason for c(result, "") is so that we get the line
# terminator on the last line of output. Otherwise, it just shows
# up between the lines.
}
sprint <- function(x,...)
{
warning("Depreciated. Use capture.output(print(...)) from base instead.")
capture(print(x,...))
}
|
