
R version 4.1.2 Patched (2022-01-20 r81529) -- "Bird Hippie"
Copyright (C) 2022 The R Foundation for Statistical Computing
Platform: x86_64-apple-darwin21.2.0 (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> ## Test databases
> 
> suppressMessages(library(filehash))
> 
> testdblist <- dir(pattern = glob2rx("testdb-v*"))
> 
> for(testname in testdblist) {
+         msg <- sprintf("DATABASE: %s\n", testname)
+         cat(paste(rep("=", nchar(msg)), collapse = ""), "\n")
+         cat(msg)
+         cat(paste(rep("=", nchar(msg)), collapse = ""), "\n")
+         db <- dbInit(testname, "DB1")
+         keys <- dbList(db)
+         print(keys)
+ 
+         for(k in keys) {
+                 cat("key:", k, "\n")
+                 val <- dbFetch(db, k)
+                 print(val)
+                 cat("\n")
+         }
+ }
====================== 
DATABASE: testdb-v1.1
====================== 
[1] "a"     "c"     "list"  "entry"
key: a 
 [1] -0.6264538  0.1836433 -0.8356286  1.5952808  0.3295078 -0.8204684
 [7]  0.4874291  0.7383247  0.5757814 -0.3053884

key: c 
[1] 1

key: list 
[[1]]
[1] 1

[[2]]
[1] 2

[[3]]
[1] 3

[[4]]
[1] 4

[[5]]
[1] 5

[[6]]
[1] 6

[[7]]
[1] "a"


key: entry 
[1] "string"

====================== 
DATABASE: testdb-v2.0
====================== 
[1] "a"     "c"     "list"  "entry"
key: a 
 [1] -0.6264538  0.1836433 -0.8356286  1.5952808  0.3295078 -0.8204684
 [7]  0.4874291  0.7383247  0.5757814 -0.3053884

key: c 
[1] 1

key: list 
[[1]]
[1] 1

[[2]]
[1] 2

[[3]]
[1] 3

[[4]]
[1] 4

[[5]]
[1] 5

[[6]]
[1] 6

[[7]]
[1] "a"


key: entry 
[1] "string"

> 
> proc.time()
   user  system elapsed 
  0.171   0.035   0.195 
