Running 'FileByteVector.R' [181s]
  Running 'FileMatrix,bug20070719.R' [154s]
  Running 'FileMatrix,bug20070821.R' [1s]
Running the tests in 'tests/FileByteVector.R' failed.
Complete output:
  > library("R.huge")
  R.huge v0.10.1 (2024-01-24 06:22:45 UTC) successfully loaded. See ?R.huge for help.
  
  Attaching package: 'R.huge'
  
  The following objects are masked from 'package:base':
  
      colnames, flush, isOpen, ncol, nrow, rowMeans, rowSums, rownames
  
  > 
  > if ("covr" %in% loadedNamespaces())
  +   options("R.utils::onNonSeekable"="warning")
  > 
  > pathname <- tempfile(fileext=".bin")
  > 
  > apd <- FileByteVector(pathname, length=10L)
  > print(apd)
  [1] "FileByteVector: Pathname: D:/temp/Rtmp482nhR/fileff0078aa6d51.bin. Opened?: TRUE. File size: 4254 bytes (4.15 kb). Dimensions: 10. Number of elements: 10. Bytes per cell: 1."
  > close(apd)
  > 
  > if (file.exists(pathname)) file.remove(pathname)
  [1] TRUE
  > 
  > proc.time()
     user  system elapsed 
     1.48   13.23   14.93 
Running the tests in 'tests/FileMatrix,bug20070719.R' failed.
Complete output:
  > library("R.huge")
  R.huge v0.10.1 (2024-01-24 06:22:45 UTC) successfully loaded. See ?R.huge for help.
  
  Attaching package: 'R.huge'
  
  The following objects are masked from 'package:base':
  
      colnames, flush, isOpen, ncol, nrow, rowMeans, rowSums, rownames
  
  > library("R.utils")
  Loading required package: R.oo
  Loading required package: R.methodsS3
  R.methodsS3 v1.8.2 (2022-06-13 22:00:14 UTC) successfully loaded. See ?R.methodsS3 for help.
  R.oo v1.26.0 (2024-01-24 05:12:50 UTC) successfully loaded. See ?R.oo for help.
  
  Attaching package: 'R.oo'
  
  The following object is masked from 'package:R.methodsS3':
  
      throw
  
  The following objects are masked from 'package:methods':
  
      getClasses, getMethods
  
  The following objects are masked from 'package:base':
  
      attach, detach, load, save
  
  R.utils v2.12.3 (2023-11-18 01:00:02 UTC) successfully loaded. See ?R.utils for help.
  
  Attaching package: 'R.utils'
  
  The following object is masked from 'package:utils':
  
      timestamp
  
  The following objects are masked from 'package:base':
  
      cat, commandArgs, getOption, isOpen, nullfile, parse, use, warnings
  
  > 
  > if ("covr" %in% loadedNamespaces())
  +   options("R.utils::onNonSeekable"="warning")
  > 
  > pathname <- "example.Rmatrix"
  > if (isFile(pathname)) {
  +   file.remove(pathname)
  +   if (isFile(pathname))
  +     stop("File not deleted: ", pathname)
  + }
  > 
  > nrow <- 50000
  > ncol <- 20
  > X <- FileFloatMatrix(pathname, nrow=nrow, ncol=ncol, byrow=TRUE)
  > 
  > n <- 1000
  > for (ii in 1:(nrow%/%n)) {
  +   jj <- ((ii-1)*n+1):(ii*n)
  +   tim <- system.time({
  +     X[jj,] <- matrix(rnorm(n*ncol), ncol=ncol)
  +   })[3]
  +   cat(ii, tim, "s\n")
  + }
  1 0.02 s
  2 0.02 s
  3 0 s
  4 0 s
  5 0.02 s
  6 0 s
  7 0 s
  8 0 s
  9 0 s
  10 0 s
  11 0 s
  12 0 s
  13 0 s
  14 0 s
  15 0 s
  16 0 s
  17 0 s
  18 0 s
  19 0.01 s
  20 0.02 s
  21 0.02 s
  22 0.01 s
  23 0.01 s
  24 0.02 s
  25 0.02 s
  26 0.01 s
  27 0.01 s
  28 0.02 s
  29 0 s
  30 0 s
  31 0 s
  32 0.02 s
  33 0 s
  34 0 s
  35 0 s
  36 0.02 s
  37 0 s
  38 0.01 s
  39 0 s
  40 0 s
  41 0.02 s
  42 0.02 s
  43 0 s
  44 0.01 s
  45 0.01 s
  46 0.01 s
  47 0.02 s
  48 0.02 s
  49 0 s
  50 0 s
  > 
  > set.seed(1)
  > for (ii in 1:6) {
  +   jj <- sample(1:nrow, size=n)
  +   tim <- system.time({
  +     y <- X[jj,]
  +   })[3]
  +   cat(ii, tim, "s\n")
  + }
  1 0.07 s
  2 0.09 s
  3 0.08 s
  4 0.08 s
  5 0.1 s
  6 0.06 s
  > 
  > close(X)
  > delete(X)
  > 
  > proc.time()
     user  system elapsed 
     4.00    0.21    4.21