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