Invalid printing digits 500 error

I'm needing to extract time series data to update our correlations, and I have got the invalid printing digits 500 error, can you please assist? I'm basically pulling time series data for the last 3 years - I understand that it might be a lot of data, so I will pull it less frequently, I need my API to be unblocked though. Can you please assist asap

while (Start <= End)

{

Listofcurrencies2 = subset(Listofcurrencies, Listofcurrencies$ID == Start)

Listofcurrencies2$ID = NULL

instruments = Listofcurrencies2$Currency

df = get_data(instruments, fields, parameters)
print(df)
colnames(df)[1] = "V1"
df$V1 = parameters$SDate
colnames(df)[2] = "Close"
df$Instrument = instruments
df$Close = ifelse(df$Close == df$Instrument, NA, df$Close)

datalist[[Start]] <- df # add it to your list

Start = Start + 1

}