How do I count the largest number of unique entries in a single day in R?

Question

I have some data from a Whatsapp chat export which looks like this:

time                 author             text               day     times     timeblock  da