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
|
## testing summarizeDF()
library( "miscTools" )
data( "cars" )
summarizeDF( cars )
summarizeDF( cars, maxLevel = 10 )
summarizeDF( cars, printValues = FALSE )
tmpFile <- file()
summarizeDF( cars, file = tmpFile )
tmpLines <- readLines( tmpFile )
close( tmpFile )
print( matrix( tmpLines, ncol = 1 ) )
data( "iris" )
summarizeDF( iris )
summarizeDF( iris, printValues = FALSE )
tmpFile <- file()
summarizeDF( iris, file = tmpFile )
tmpLines <- readLines( tmpFile )
close( tmpFile )
print( matrix( tmpLines, ncol = 1 ) )
data( "swiss" )
summarizeDF( swiss )
summarizeDF( swiss, maxLevel = 10 )
summarizeDF( swiss, printValues = FALSE )
tmpFile <- file()
summarizeDF( swiss, file = tmpFile )
tmpLines <- readLines( tmpFile )
close( tmpFile )
print( matrix( tmpLines, ncol = 1 ) )
|
