Hi Seth,
Can you recreate the example below using dbWriteTable?
Thanks!,
Erik
On Jul 11, 2010, at 6:13 PM, Seth Falcon wrote:
> On Sun, Jul 11, 2010 at 11:31 AM, Matt Shotwell <shotw...@musc.edu> wrote:
>> On Fri, 2010-07-09 at 20:02 -0400, Erik Wright wrote:
>>> Hi Matt,
>>>
>>> This works great, thanks!
>>>
>>> At first I got an error message saying BLOB is not implemented in RSQLite.
>>> When I updated to the latest version it worked.
>>
>> SQLite began to support BLOBs from version 3.0.
>
> And RSQLite began supporting BLOBs only just recently :-)
> See the NEWS file for details.
>
> Below is a minimal example of how you might use BLOBs:
>
> db <- dbConnect(SQLite(), dbname = ":memory:")
> dbGetQuery(db, "CREATE TABLE t1 (name TEXT, data BLOB)")
>
> z <- paste("hello", 1:10)
> df <- data.frame(a = letters[1:10],
> z = I(lapply(z, charToRaw)))
> dbGetPreparedQuery(db, "insert into t1 values (:a, :z)", df)
> a <- dbGetQuery(db, "select name from t1")
> checkEquals(10, nrow(a))
> a <- dbGetQuery(db, "select data from t1")
> checkEquals(10, nrow(a))
> a <- dbGetQuery(db, "select * from t1")
> checkEquals(10, nrow(a))
> checkEquals(2, ncol(a))
>
> checkEquals(z, sapply(a$data, rawToChar))
> dbDisconnect(db)
>
>
> --
> Seth Falcon | @sfalcon | http://userprimary.net/
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
