Update database.R