library(RBloomberg) conn <- blpConnect(log.level = "finest")