update to new data, add dplyr in server.r