doc$dataset$coverage$temporalCoverage <- list(
eml$temporalCoverage(rangeOfDates = list(beginDate = list(calendarDate = 2005),
endDate = list(calendarDate = 2010))),
eml$temporalCoverage(rangeOfDates = list(beginDate = list(calendarDate = 2013),
endDate = list(calendarDate = 2019))))