server.R bijgewerkt