This app tests that invalidateLater() calls are held until async operations are complete.

1. You should see the number below increasing by 1, every 2 seconds.
2. The output should be semi-transparent (i.e. recalculating state) continuously.
3. You should see the word 'Flushed' in the R console, every 2 seconds.