writeData.table

first version of `writeData.table` (with test from `example(table)`)