# NOT RUN {
if(requireNamespace("curl") &
curl::has_internet() &
require(lattice)) {
# get CA630 data as daily averages
x <- fetchHenry(project='CA630', gran = 'day')
# inspect data gaps
levelplot(factor(!is.na(sensor_value)) ~ doy * factor(year) | name,
data=x$soiltemp, col.regions=c('grey', 'RoyalBlue'), cuts=1,
colorkey=FALSE, as.table=TRUE, scales=list(alternating=3),
par.strip.text=list(cex=0.75), strip=strip.custom(bg='yellow'),
xlab='Julian Day', ylab='Year')
}
# }
Run the code above in your browser using DataLab