Create update_query.R