How to create ascii-only tables as output in R, similar to MySQL style?

I'm trying to find a function for R which outputs data.frame objects in MySQL style ascii tables like this

+----+------+------+
| id | var1 | var2 |
+----+------+------+
|  1 | asdf | g    |
|  2 | asdf | h    |
|  3 | asdf | j    |
+----+------+------+

Is there such function available? There is at least two tools for this

• csvfix asctii_table
• Format Text as a Table

but is there a way to do this directly from R?