Last updated on 2026-03-16 08:52:56 CET.
| Package | ERROR | OK |
|---|---|---|
| RMVL | 1 | 13 |
Current CRAN status: ERROR: 1, OK: 13
Version: 1.1.0.2
Check: tests
Result: ERROR
Running ‘test_block_write.R’ [1s/1s]
Comparing ‘test_block_write.Rout’ to ‘test_block_write.Rout.save’ ... OK
Running ‘test_bracket1.R’ [1s/1s]
Running ‘test_bracket2.R’ [1s/2s]
Comparing ‘test_bracket2.Rout’ to ‘test_bracket2.Rout.save’ ... OK
Running ‘test_checksums1.R’ [0s/1s]
Comparing ‘test_checksums1.Rout’ to ‘test_checksums1.Rout.save’ ... OK
Running ‘test_extent_index.R’ [0s/0s]
Comparing ‘test_extent_index.Rout’ to ‘test_extent_index.Rout.save’ ... OK
Running ‘test_fused_write_object1.R’ [0s/1s]
Comparing ‘test_fused_write_object1.Rout’ to ‘test_fused_write_object1.Rout.save’ ... OK
Running ‘test_hash.R’ [0s/1s]
Comparing ‘test_hash.Rout’ to ‘test_hash.Rout.save’ ... OK
Running ‘test_indexed_copy.R’ [0s/1s]
Comparing ‘test_indexed_copy.Rout’ to ‘test_indexed_copy.Rout.save’ ... OK
Running ‘test_order1.R’ [0s/1s]
Comparing ‘test_order1.Rout’ to ‘test_order1.Rout.save’ ... OK
Running the tests in ‘tests/test_bracket1.R’ failed.
Complete output:
> require("RMVL")
Loading required package: RMVL
>
> M3<-mvl_open("test2.mvl", append=TRUE, create=TRUE)
>
> L<-list()
>
> df<-data.frame(x=1:1e5, y=rnorm(1e5), s=rep(c("a", "b"), 5e4), b=rnorm(1e5)<0.5)
> L[["x"]]<-mvl_write_object(M3, df)
>
> aa<-array(rnorm(10000), c(10, 50, 20))
> L[["y"]]<-aa
>
> mm<-matrix(rnorm(10000), 10, 1000)
> L[["z"]]<-mm
>
> LL2<-as.list(rnorm(10000))
> names(LL2)<-paste("x", 1:10000, sep="")
> L[["LL2"]]<-LL2
>
> L[["description"]]<-"Example of large data frame"
> mvl_write_object(M3, L, "test_object")
>
> LM1<-lm(rnorm(100)~runif(100))
> mvl_write_serialized_object(M3, LM1, "LM1")
>
> mvl_close(M3)
>
> M3<-mvl_open("test2.mvl")
> print(names(M3))
[1] "test_object" "LM1"
> L2<-M3["test_object"]
>
> N<-dim(df)[1]
>
> compare_df<-function(x, y) {
+ if(length(dim(x))!=length(dim(y)))return(FALSE)
+ if(any(dim(x)!=dim(y)))return(FALSE)
+ if(any(names(x)!=names(y)))return(FALSE)
+ if(dim(x)[2]>0) {
+ for(i in 1:(dim(x)[2])) {
+ if(any(x[,i]!=y[,i]))return(FALSE)
+ }
+ }
+ return(TRUE)
+ }
>
> if(!compare_df(df, L2[["x"]][,])) {
+ cat("test1a failed\n")
+ print(attributes(df))
+ print(attributes(L2[["x"]][,]))
+ cat("-----------\n")
+ }
> if(!compare_df(df[1:20,], L2[["x"]][1:20,]))cat("test1b failed\n")
>
> if(!compare_df(df[(1:N) %% 5==0,], L2[["x"]][(1:N) %% 5==0,]))cat("test2 failed\n")
>
> if(!compare_df(df[(1:N) %% 5==0,], L2[["x"]][(1:N)[(1:N) %% 5==0],]))cat("test3 failed\n")
>
> if(!compare_df(df[(1:N) %% 5==0, c("y", "s")], L2[["x"]][(1:N)[(1:N) %% 5==0], c("y", "s")]))cat("test4 failed\n")
>
> if(!identical(df[(1:N) %% 5==0, c("s")], L2[["x"]][(1:N)[(1:N) %% 5==0], c("s")]))cat("test5 failed\n")
>
> if(!compare_df(df[(1:N) %% 5==0, 2:3], L2[["x"]][(1:N)[(1:N) %% 5==0], 2:3]))cat("test6 failed\n")
>
> if(!isTRUE(all.equal(aa, L2[["y"]][])))cat("test7 failed\n")
> if(!compare_df(mm, L2[["z"]][])) {
+ cat("test8 failed\n")
+ print(all.equal(mm, L2[["z"]][]))
+ print(attributes(mm))
+ print(attributes(L2[["z"]][]))
+ cat("-----------\n")
+ }
>
> if(!isTRUE(all.equal(aa[c(2,3,5),,], L2[["y"]][c(2,3,5),,])))cat("test9 failed\n")
Error in `[.MVL_OBJECT`(L2[["y"]], c(2, 3, 5), , ) :
argument "ii" is missing, with no default
Calls: isTRUE ... all.equal.numeric -> attr.all.equal -> mode -> [ -> [.MVL_OBJECT
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc