13 lines
114 KiB
R
13 lines
114 KiB
R
|
.setUp <- function() {}
|
||
|
|
.tearDown <- function() {}
|
||
|
|
|
||
|
|
test.large.data <- function()
|
||
|
|
{
|
||
|
|
json <- '{"15060":{"Atom_chem_shift":[{"category":"_Atom_chem_shift","data":[["1",".","1","1","20","20","LEU","H","H","1","8.149",".",".","1",".",".",".",".","20","LEU","HN",".","15060","1"],["2",".","1","1","20","20","LEU","CA","C","13","56.016",".",".","1",".",".",".",".","20","LEU","CA",".","15060","1"],["3",".","1","1","20","20","LEU","CB","C","13","42.180",".",".","1",".",".",".",".","20","LEU","CB",".","15060","1"],["4",".","1","1","20","20","LEU","N","N","15","122.739",".",".","1",".",".",".",".","20","LEU","N",".","15060","1"],["5",".","1","1","21","21","VAL","H","H","1","8.048",".",".","1",".",".",".",".","21","VAL","HN",".","15060","1"],["6",".","1","1","21","21","VAL","CA","C","13","63.412",".",".","1",".",".",".",".","21","VAL","CA",".","15060","1"],["7",".","1","1","21","21","VAL","CB","C","13","32.236",".",".","1",".",".",".",".","21","VAL","CB",".","15060","1"],["8",".","1","1","21","21","VAL","N","N","15","120.251",".",".","1",".",".",".",".","21","VAL","N",".","15060","1"],["9",".","1","1","22","22","THR","H","H","1","8.032",".",".","1",".",".",".",".","22","THR","HN",".","15060","1"],["10",".","1","1","22","22","THR","HA","H","1","4.310",".",".","1",".",".",".",".","22","THR","HA",".","15060","1"],["11",".","1","1","22","22","THR","HG21","H","1","1.240",".",".","1",".",".",".",".","22","THR","HG2",".","15060","1"],["12",".","1","1","22","22","THR","HG22","H","1","1.240",".",".","1",".",".",".",".","22","THR","HG2",".","15060","1"],["13",".","1","1","22","22","THR","HG23","H","1","1.240",".",".","1",".",".",".",".","22","THR","HG2",".","15060","1"],["14",".","1","1","22","22","THR","CA","C","13","63.154",".",".","1",".",".",".",".","22","THR","CA",".","15060","1"],["15",".","1","1","22","22","THR","CB","C","13","69.934",".",".","1",".",".",".",".","22","THR","CB",".","15060","1"],["16",".","1","1","22","22","THR","CG2","C","13","21.960",".",".","1",".",".",".",".","22","THR","CG2",".","15060","1"],["17",".","1","1","22","22","THR","N","N","15","116.327",".",".","1",".",".",".",".","22","THR","N",".","15060","1"],["18",".","1","1","23","23","LYS","HA","H","1","4.160",".",".","1",".",".",".",".","23","LYS","HA",".","15060","1"],["19",".","1","1","23","23","LYS","HB2","H","1","1.870",".",".","1",".",".",".",".","23","LYS","HB1",".","15060","1"],["20",".","1","1","23","23","LYS","HB3","H","1","1.870",".",".","1",".",".",".",".","23","LYS","HB2",".","15060","1"],["21",".","1","1","23","23","LYS","HG2","H","1","1.680",".",".","1",".",".",".",".","23","LYS","HG1",".","15060","1"],["22",".","1","1","23","23","LYS","HG3","H","1","1.680",".",".","1",".",".",".",".","23","LYS","HG2",".","15060","1"],["23",".","1","1","23","23","LYS","HD2","H","1","1.410",".",".","2",".",".",".",".","23","LYS","HD1",".","15060","1"],["24",".","1","1","23","23","LYS","HD3","H","1","1.500",".",".","2",".",".",".",".","23","LYS","HD2",".","15060","1"],["25",".","1","1","23","23","LYS","HE2","H","1","2.980",".",".","1",".",".",".",".","23","LYS","HE1",".","15060","1"],["26",".","1","1","23","23","LYS","HE3","H","1","2.980",".",".","1",".",".",".",".","23","LYS","HE2",".","15060","1"],["27",".","1","1","23","23","LYS","CA","C","13","58.450",".",".","1",".",".",".",".","23","LYS","CA",".","15060","1"],["28",".","1","1","23","23","LYS","CB","C","13","32.578",".",".","1",".",".",".",".","23","LYS","CB",".","15060","1"],["29",".","1","1","23","23","LYS","CG","C","13","29.110",".",".","1",".",".",".",".","23","LYS","CG",".","15060","1"],["30",".","1","1","23","23","LYS","CD","C","13","24.850",".",".","1",".",".",".",".","23","LYS","CD",".","15060","1"],["31",".","1","1","23","23","LYS","CE","C","13","41.670",".",".","1",".",".",".",".","23","LYS","CE",".","15060","1"],["32",".","1","1","24","24","ILE","H","H","1","8.033",".",".","1",".",".",".",".","24","ILE","HN",".","15060","1"],["33",".","1","1","24","24","ILE","HA","H","1","3.950",".",".","1",".",".",".",".","24","ILE","HA",".","15060","1"],["34",".","1","1","24","24","ILE","HG21","H","1","0.920",".",".","1",".",".",".",".","24","ILE","HG2",".","15060","1"],["35",".","1","1","24","24","
|
||
|
|
x <- fromJSON( json )
|
||
|
|
checkTrue( is.list(x) )
|
||
|
|
checkTrue( length(x) == 1 )
|
||
|
|
checkTrue( is.list(x[["15060"]]) )
|
||
|
|
checkTrue( length(x[["15060"]][["Atom_chem_shift"]]) == 1 )
|
||
|
|
}
|