library(cdlTools)
library(rgdal)
library(tictoc)
data(stateNames)
for( state in stateNames$STATENAME) {
cat(sprintf("*** %s ***\n", state))
tic(sprintf("*** %s ***\n", state))
getCDL(state,2006:2019,location="/Volumes/data/CDL/CDL/",ssl.verifypeer = FALSE)
toc()
}
#zz <- createComparableCDL(z,baseIndex=1,progress="text")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.