library(RBloomberg)
conn <- blpConnect()
ex1 <- blpGetData(conn, "ED1 Comdty", c("BID","ASK"), start=as.chron(Sys.time() - 3600), barfields="OPEN", barsize=2)
ex2 <- blpGetData(conn, "ED1 Comdty", c("BID"), start=as.chron(Sys.time() - 3600), end=as.chron(Sys.time() - 3420), barsize=0)