From e0cf400e23adf46efb8b25eb1d5caee3934bff73 Mon Sep 17 00:00:00 2001
From: Ben Letham <bletham@gmail.com>
Date: Wed, 30 May 2018 23:19:56 -0700
Subject: [PATCH] R check cleanups

---
 R/R/diagnostics.R | 2 +-
 R/R/plot.R        | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/R/diagnostics.R b/R/R/diagnostics.R
index 632fcd2..f3374ac 100644
--- a/R/R/diagnostics.R
+++ b/R/R/diagnostics.R
@@ -34,7 +34,7 @@ generate_cutoffs <- function(df, horizon, initial, period) {
     }
     result <- c(result, cutoff)
   }
-  result <- head(result, -1)
+  result <- utils::head(result, -1)
   if (length(result) == 0) {
     stop(paste(
       'Less data than horizon after initial window.',
diff --git a/R/R/plot.R b/R/R/plot.R
index 8826648..7053702 100644
--- a/R/R/plot.R
+++ b/R/R/plot.R
@@ -390,7 +390,7 @@ dyplot.prophet <- function(x, fcst, uncertainty=TRUE,
   forecast.label='Predicted'
   actual.label='Actual'
   # create data.frame for plotting
-  df <- prophet:::df_for_plotting(x, fcst)
+  df <- df_for_plotting(x, fcst)
   
   # build variables to include, or not, the uncertainty data
   if(uncertainty && exists("yhat_lower", where = df))