First eventsObserveR below:
library(eventsObserveR)
eventsObserveR(events = sample_events_data,
place.key = "station")
Second
library(eventsObserveR)
eventsObserveR(events = sample_events_data,
place.key = "station")