First eventsObserveR below:

library(eventsObserveR)
eventsObserveR(events = sample_events_data,
                     place.key = "station")

Second

library(eventsObserveR)
eventsObserveR(events = sample_events_data,
                     place.key = "station")