dpo <- dpo[dpo$SERVICE_DATE >= sDate & dpo$SERVICE_DATE <= eDate, ]
qry <- paste("SELECT * FROM apc_correlated WHERE (CONVERT(varchar(10), transit_date_time,121)) >= ", "'",sDate, "'"," AND (CONVERT(varchar(10), transit_date_time,121)) <= ", "'",eDate, "'",sep ="")
dbQ <- sqlQuery(orb, qry)
dpo <- dpo[!is.na(dpo$VEHICLE), ]
dpo <- dpo[dpo$LDATE > 0, ]
dbQ <- dbQ[dbQ$current_route_id > 0, ]
Error in dbQ$current_route_id : $ operator is invalid for atomic vectors