DB was not released after rm

I got an error by the following code.

``` R
db <- OpenLevelDB("/path/to/levelDB_A", create = F)
rm(db)
db <- OpenLevelDB("/path/to/levelDB_A", create = F) # Error: still locked and failed reopening
```

It seems that I need to invoke `gc()` after `rm(db)`.
