## ----sacks1, message=FALSE----------------------------------------------------
library(agrodata)
agrodata::crop_calendar_sacks()


## ----sacks15, message=FALSE---------------------------------------------------
r <- agrodata::crop_calendar_sacks("Maize (main season)")
r


## ----sacks20------------------------------------------------------------------
names(r)


## ----sacks30, fig.width=8, fig.height=5---------------------------------------
plot(r[["harvest"]])


## ----sacks35, fig.width=8, fig.height=5---------------------------------------
plot(r["harvest.start"])


## ----sacks40, fig.width=8, fig.height=5---------------------------------------
plot(r["harvest.end"])


## ----sacks45, fig.width=8, fig.height=5---------------------------------------
plot(r["harvest.end"])


## ----sacks50, fig.width=8, fig.height=5---------------------------------------
plot(r["tot.days"])


## ----sacks60, fig.width=8, fig.height=5---------------------------------------
plot(r["harvested.area.fraction"])