inst/misc/create-testdb.R

   1 library(filehash)
   2
   3 ## DB1 format
   4 dbCreate("testDB", "DB1")
   5 db <- dbInitialize("testDB", "DB1")
   6
   7 set.seed(10)
   8 dbInsert(db, "x", 1:10)
   9 dbInsert(db, "y", rnorm(100))
  10 dbInsert(db, "z", c(TRUE, FALSE))
  11 dbInsert(db, "a", letters)
  12
  13 library(datasets)
  14 dbInsert(db, "df", airquality)
  15 dbInsert(db, "h", list(1, 2, 3, 4, 5))
  16