R/reporting_UI.R

In Aqvayli06/SaldaeModulesUI: Shiny Dashboard modules by Fair Analytics

prepare_data_to_report <- function(data_object = NULL, output_type = "forecast"){
  if(output_type == "forecast"){
    data_object <- data_object%>%purrr::imap(~.x %>%dplyr::select(date, forecast)%>%
                                               dplyr::rename(!!quo_name(.y) := forecast)%>%
                                               tidyr::drop_na())
  }
  return(data_object)
}