Create test-tables.R

I took the example table from http://www.w3schools.com/html/html_tables.asp and verified that html_table() parses it successfully as a data.frame. This test verifies that spaces in the TH also do not cause some weird problem.
Could you make this a rather less indented please?