fixed a couple things in server.R to match jsvis() function; might not be done...