tests/6.R

In piersharding/RMonet: MonetDB SQL client interface for R

test.write_frame_to_table <- function()
{
    conn <- RMonetConnect("db.yml")
    tab = RMonetQuery(conn, "SELECT * FROM voc.voyages LIMIT 250")
    #str(tab)
    checkEquals(250, length(tab$trip))
    res = dbwrite(conn, tab, "tmp_voyages", drop=TRUE, chunk=45)
    res = RMonetCommit(conn)
    tab = RMonetQuery(conn, "SELECT * FROM voc.tmp_voyages LIMIT 250")
    #str(tab)
    checkEquals(250, length(tab$trip))
    res = RMonetExecute(conn, "DROP TABLE voc.tmp_voyages")
    #print(res)
    checkEquals(0, res)

    checkTrue(RMonetClose(conn))
}