testBulkAppend <- function() {
  library(RMySQL)
  # Create table with: create table test (subject int(11), value int(11), type int(11));

  db = dbConnect(MySQL(), user='root', password='', dbname='test_db', host='localhost')

  # Put some elements into a table
  subjects <- c(1,2)
  values <- c(10,20)
  test <- data.frame( subject=subjects, value=values )
  dbWriteTable( db, "test", value=test, append=TRUE, header=FALSE, row.names=FALSE )

  # Compute values for a new column
  types <- c(100,200)
  newtest <- data.frame( subject=subjects, type=types )

  # update the database: Fails - creates new entries
#  dbWriteTable( db, "test", value=newtest, append=TRUE, header=FALSE, row.names=FALSE )

  # update the database: Works, but requires the entire table be held in memory, first.
  bigtest <- data.frame( subject=subjects, value=values, type=types )
  dbWriteTable( db, "test", value=bigtest, overwrite=TRUE, header=FALSE, row.names=FALSE )

  dbDisconnect(db)
}