update example.R to demo knob talking to spin