Problem with InstrumentsList function

[henrywjr]

Dear IFFranciscoME:
Thank you for this wrapper, it is fantastic -- only problem that I am facing is that when I use InstrumentsList, an error appears:

Error in names(x) <- value : 
  'names' attribute [4] must be the same length as the vector [3]
Called from: `colnames<-`(`*tmp*`, value = c("Instrument", "DisplayName", 
    "PipSize", "MaxTradeUnits"))

I have narrowed it down to this particular line in the function:

QueryInst1 <- getURL(QueryInst,cainfo=system.file("CurlSSL","cacert.pem",
                                                    package="RCurl"),httpheader=auth)

Do you have any idea how I can fix it?

Really appreciate your effort!

Best wishes,
Henrywjr