diff --git a/R/generate_forecast_score_arrow.R b/R/generate_forecast_score_arrow.R index 0868ffc..f21265b 100644 --- a/R/generate_forecast_score_arrow.R +++ b/R/generate_forecast_score_arrow.R @@ -57,11 +57,7 @@ generate_forecast_score_arrow <- function(targets_file, units = "seconds"), horizon = horizon / 86400) - - reference_datetime_format <- "%Y-%m-%d %H:%M:%S" - - df <- df |> dplyr::mutate(reference_datetime = strftime(lubridate::as_datetime(reference_datetime),format=reference_datetime_format,tz = "UTC"), - reference_date = lubridate::as_date(datetime)) + df <- df |> dplyr::mutate(reference_date = lubridate::as_date(datetime)) arrow::write_dataset(df, path = output_directory, partitioning = c("site_id","model_id","reference_date"))