We found a very interesting solution:
res <- dbSendQuery(con, "INSERT INTO t VALUES (5);")
res <- dbSendQuery(con, "SELECT LAST_INSERT_ID();")
fetch(res)
If it does not work, use a dbClearResult(res)
before sending the last id request. For us it worked out.