outputFolder = '//KCJazz/GIS/DataDevelopment/HumanServices/COVID-19/Outputs/PipelineDataOutputs/PublishData'
baseData <- getBaseCovidData()
dfListHub <- createBiDatasets_Hub(baseDataList = baseData, lagDaysCDT = 10, lagDaysHosp = 2)
list2CSV(dfListHub, outputFolder)
dfListWDS <- createBiDatasets_WDS(baseDataList = baseData, cutoffDay = 'Tuesday', lagDaysCDT = 10, lagDaysHosp = 2)
list2CSV(c(dfListHub, dfListWDS), outputFolder)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.