File: data.rtest

package info (click to toggle)
rggobi 2.1.4-2-1etch1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 1,284 kB
  • ctags: 275
  • sloc: ansic: 3,590; asm: 176; makefile: 73; sh: 22
file content (22 lines) | stat: -rw-r--r-- 393 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
test_load_frame <- function() {
	check_data <- function(dataset) {
		g <- ggobi()
		g[[1]] <- dataset
		assert_equal(dataset, as.data.frame(g[[1]]))
		close(g)
	}
	
	lapply(list(mtcars), check_data)
}

test_load_file <- function() {
	files <- dir(ggobi_find_file("data"), "\.xml$", full=TRUE)
	
	lapply(files, function(x) {
		assert_error({
			g <- ggobi(x)
			close(g)
			print(x)
		})
	})
}