modify updateKeyword in server.R