use sys.source() and keep.source=TRUE

I can do #237 as well after it is clear to me

I was also wondering why we need to put `local()` around `source()`, since we have specified the environment to evaluate ui.R and server.R

@jcheng5