Update Query.R