if (interactive()) {
esmdata_sim$sent <- as.POSIXct(esmdata_sim$sent)
calendar_plot(esmdata_sim, timevar = "sent", interval = "halfyear")
calendar_plot(esmdata_sim, timevar = "sent", interval = "year")
}
Run the code above in your browser using DataLab