df<-readRDS("C:/Users/jamir/Downloads/FairTraders_Receipts_and_StorageBins.rds")
num_entries <- nrow(df)
print(num_entries)
## [1] 6275201
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.