diff --git a/.github/workflows/snapshot-nhsn-data.yml b/.github/workflows/snapshot-nhsn-data.yml index 6d3e680..1a57a54 100644 --- a/.github/workflows/snapshot-nhsn-data.yml +++ b/.github/workflows/snapshot-nhsn-data.yml @@ -36,7 +36,7 @@ jobs: - name: install R packages run: | - Rscript -e "install.packages('remotes'); + Rscript -e "install.packages(c('remotes', 'lubridate')); remotes::install_github('Chicago/RSocrata')" - name: Get file name @@ -47,6 +47,8 @@ jobs: nhsn_data <- nhsn_data[c('jurisdiction', 'weekendingdate', 'totalconfflunewadm', 'totalconfc19newadm')]; nhsn_data[['weekendingdate']] <- substr(nhsn_data[['weekendingdate']], 1, 10); colnames(nhsn_data) <- c('Geographic aggregation', 'Week Ending Date', 'Total Influenza Admissions', 'Total COVID-19 Admissions'); + max_date <- lubridate::ymd(max(nhsn_data[['Week Ending Date']])); + if (max_date < lubridate::floor_date(Sys.Date(), 'week') - 1L) stop(paste0('Target data is out of date \nLatest date ', max_date)); write.csv(nhsn_data, file = '$FILE_NAME', row.names = FALSE)" env: FILE_NAME: ${{ env.FILE_NAME }} diff --git a/.github/workflows/snapshot-nssp-data.yml b/.github/workflows/snapshot-nssp-data.yml index cd09334..b38fc31 100644 --- a/.github/workflows/snapshot-nssp-data.yml +++ b/.github/workflows/snapshot-nssp-data.yml @@ -63,6 +63,8 @@ jobs: }; nssp_data <- nssp_data[c('week_end', 'geography', 'county', 'fips', 'hsa_nci_id', 'percent_visits_covid', 'percent_visits_influenza', 'percent_visits_rsv')]; nssp_data[['week_end']] <- substr(nssp_data[['week_end']], 1, 10); + max_date <- lubridate::ymd(max(nssp_data[['week_end']])); + if (max_date < lubridate::floor_date(Sys.Date(), 'week') - 1L) stop(paste0('Target data is out of date \nLatest date ', max_date)); write.csv(nssp_data, file = '$FILE_NAME', row.names = FALSE)" env: FILE_NAME: ${{ env.FILE_NAME }}