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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.