Update visdemo.R

Added a few gc() to perhaps help it run w/o R restart