R/run.query.R

In RObsDat: Data Management for Hydrology and Beyond Using the Observations Data Model

run.query <- function(object, query){
	#replace " by ' because this is required by postgres
	queryA <- gsub("\"", "'", query)
	if(getOption("verbose.queries", default=FALSE)) print(queryA)

	IdbState(object)
	res <- dbGetQuery(object@con, queryA)
	return(res)
}