Running examples in 'vetiver-Ex.R' failed
The error most likely occurred in:

> ### Name: vetiver_pin_metrics
> ### Title: Update model metrics over time for monitoring
> ### Aliases: vetiver_pin_metrics
> 
> ### ** Examples
> 
> ## Don't show: 
> if (rlang::is_installed(c("dplyr", "parsnip", "modeldata"))) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(dplyr)
+ library(parsnip)
+ data(Chicago, package = "modeldata")
+ Chicago <- Chicago %>% select(ridership, date, all_of(stations))
+ training_data <- Chicago %>% filter(date < "2009-01-01")
+ testing_data <- Chicago %>% filter(date >= "2009-01-01", date < "2011-01-01")
+ monitoring <- Chicago %>% filter(date >= "2011-01-01", date < "2012-12-31")
+ lm_fit <- linear_reg() %>% fit(ridership ~ ., data = training_data)
+ 
+ library(pins)
+ b <- board_temp()
+ 
+ ## before starting monitoring, initiate the metrics and pin
+ ## (for example, with the testing data):
+ original_metrics <-
+     augment(lm_fit, new_data = testing_data) %>%
+     vetiver_compute_metrics(date, "week", ridership, .pred, every = 4L)
+ pin_write(b, original_metrics, "lm_fit_metrics", type = "arrow")
+ 
+ ## to continue monitoring with new data, compute metrics and update pin:
+ new_metrics <-
+     augment(lm_fit, new_data = monitoring) %>%
+     vetiver_compute_metrics(date, "week", ridership, .pred, every = 4L)
+ vetiver_pin_metrics(b, new_metrics, "lm_fit_metrics")
+ ## Don't show: 
+ }) # examplesIf
> library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

> library(parsnip)
> data(Chicago, package = "modeldata")
> Chicago <- Chicago %>% select(ridership, date, all_of(stations))
> training_data <- Chicago %>% filter(date < "2009-01-01")
> testing_data <- Chicago %>% filter(date >= "2009-01-01", date < "2011-01-01")
> monitoring <- Chicago %>% filter(date >= "2011-01-01", date < "2012-12-31")
> lm_fit <- linear_reg() %>% fit(ridership ~ ., data = training_data)
> library(pins)
> b <- board_temp()
> original_metrics <- augment(lm_fit, new_data = testing_data) %>% vetiver_compute_metrics(date, 
+     "week", ridership, .pred, every = 4L)
> pin_write(b, original_metrics, "lm_fit_metrics", type = "arrow")
Error in write_arrow(x, path) : The package `arrow` is required.
Calls: <Anonymous> ... pin_write -> object_write -> write_arrow -> check_installed
Execution halted