R/calculate_daily_means.R

In KWB-R/fhpredict: R Package for the Project Flusshygiene

# calculate_daily_means --------------------------------------------------------
calculate_daily_means <- function(df, date_column = "datum", na.rm = TRUE)
{
  df[[date_column]] <- as.Date(
    format(kwb.utils::selectColumns(df, date_column), "%Y-%m-%d")
  )

  df %>%
    kwb.utils::hsMatrixToListForm(keyFields = date_column) %>%
    dplyr::group_by(.data$datum, .data$parName) %>%
    dplyr::summarise(parVal = mean(.data$parVal, na.rm = na.rm)) %>%
    tidyr::pivot_wider(names_from = "parName", values_from = "parVal") %>%
    as.data.frame()
}