diff --git a/Rmd/make_basicReport.R b/Rmd/make_basicReport.R index ed3acb615f9cd870ab32145b39a15ade49089559..80136471e16b5a52648f54df6f601f24521a2592 100644 --- a/Rmd/make_basicReport.R +++ b/Rmd/make_basicReport.R @@ -66,7 +66,7 @@ startTime <- proc.time() # Set the drake plan ---- # Clearly this will fail if you do not have internet access... plan <- drake::drake_plan( - esoData = getData(urlToGet, update), # returns data as data.table. If you edit update in any way it will reload - drake is watching you! + esoData = getData(urlToGet, update), # returns data as data.table. If you edit 'update' in any way it will reload - drake is watching you! skimTable = skimr::skim(esoData), # create a data description table gWPlot = makeGWPlot(esoData) # make a plot ) @@ -80,6 +80,10 @@ make(plan) # run the plan, re-loading data if needed # drake can't seem to track the .rmd file if it is not explicitly named makeReport(rmdFile) +# Just to show we can bring spirits back from the deep (i.e. from wherever drake hid them) +dt <- drake::readd(esoData) +message("Data covers ", min(dt$rDateTime), " to ", max(dt$rDateTime)) + # Finish off ---- t <- proc.time() - startTime # how long did it take?