R check cleanups

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.',

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))