From c836b520abcb0d359cd1cfcb3b966a7d1bca7e07 Mon Sep 17 00:00:00 2001
From: Ben Letham <bletham@gmail.com>
Date: Tue, 11 Jul 2017 17:32:02 -0700
Subject: [PATCH] Add m as argument to make_future_dataframe

---
 R/R/prophet.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/R/prophet.R b/R/R/prophet.R
index 6563045..06d9c7c 100644
--- a/R/R/prophet.R
+++ b/R/R/prophet.R
@@ -1054,6 +1054,10 @@ sample_predictive_trend <- function(model, df, iteration) {
 #' @export
 make_future_dataframe <- function(m, periods, freq = 'day',
                                   include_history = TRUE) {
+  # For backwards compatability with previous zoo date type,
+  if (freq == 'm') {
+    freq <- 'month'
+  }
   dates <- seq(max(m$history.dates), length.out = periods + 1, by = freq)
   dates <- dates[2:(periods + 1)]  # Drop the first, which is max(history$ds)
   if (include_history) {