loadModule("rrocksdb",TRUE)runRRocksDB<-function() {db<- new(rrocksdb::DB,"/tmp/foo.db")  print(db)db$put("name","Bar")  print(db$get("name"))batch<- new(rrocksdb::WriteBatch)for(iin1:1000) {batch$put(paste("name",i), paste("Chris",i))  }db$write(batch)iterator<-db$iterator()while (iterator$valid()) {    print(paste(iterator$key," :",iterator$value))iterator$moveNext()  }s<-db$createColumnFamily("column_family")}sampleLoad<-function() {  runRRocksDB()invisible(gc())}