avoiding funny issue with `source("patternPlot.R")`

the code is straight in the server.R file