comment weekday and rename changes

Author: nmdefries

app/R/data_manipulation.R

@@ -57,6 +57,7 @@ filterOverAllLocations <- function(filteredScoreDf, scoreType, hasAsOfData = FAL
 # May change in the future
 filterHospitalizationsAheads <- function(scoreDf) {
   days_list <- c("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")
+  # Make sure to use `data.table`'s `wday`; `lubridate` has a function of the same name.
   scoreDf["weekday"] <- days_list[data.table::wday(as.Date(scoreDf$target_end_date, "%Y-%m-%d"))]
   scoreDf <- filter(scoreDf, weekday == HOSPITALIZATIONS_TARGET_DAY)
   scoreDf$ahead_group <- case_when(

app/server.R

@@ -202,6 +202,10 @@ server <- function(input, output, session) {
       input$asOf != "" &&
       nrow(PREV_AS_OF_DATA()) != 0 &&
       input$asOf < CURRENT_WEEK_END_DATE()) {
+      # Equivalent to but faster than the `dplyr`:
+      #  asOfData <- PREV_AS_OF_DATA() %>%
+      #    rename(target_end_date = time_value, as_of_actual = value) %>%
+      #    select(target_end_date, geo_value, as_of_actual)
       asOfData <- PREV_AS_OF_DATA()
       asOfData$target_end_date <- asOfData$time_value
       asOfData$as_of_actual <- asOfData$value