drop tz from week ending date

reichlab · Dec 16, 2024 · b5c0a62 · b5c0a62
1 parent d033367
commit b5c0a62
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/.github/workflows/snapshot-nhsn-data.yml b/.github/workflows/snapshot-nhsn-data.yml
@@ -36,6 +36,7 @@ jobs:
       - name: Snapshot NHSN data
         run: Rscript -e "nhsn_data <- RSocrata::read.socrata('https://data.cdc.gov/resource/mpgq-jmmr.csv');
                          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");
                          write.csv(nhsn_data, file = '$FILE_NAME', row.names = FALSE)"
         env: