CRAN Package Check Results for Package vetiver

Last updated on 2022-09-28 02:51:16 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.1.7 6.33 106.35 112.68 OK
r-devel-linux-x86_64-debian-gcc 0.1.7 4.50 80.48 84.98 OK
r-devel-linux-x86_64-fedora-clang 0.1.7 146.28 OK
r-devel-linux-x86_64-fedora-gcc 0.1.7 148.13 OK
r-devel-windows-x86_64 0.1.7 56.00 169.00 225.00 OK
r-patched-linux-x86_64 0.1.7 5.09 99.88 104.97 OK
r-release-linux-x86_64 0.1.7 3.91 99.89 103.80 OK
r-release-macos-arm64 0.1.7 43.00 OK
r-release-macos-x86_64 0.1.7 68.00 OK
r-release-windows-x86_64 0.1.7 41.00 162.00 203.00 OK
r-oldrel-macos-arm64 0.1.7 47.00 OK
r-oldrel-macos-x86_64 0.1.7 68.00 OK
r-oldrel-windows-ix86+x86_64 0.1.7 13.00 129.00 142.00 ERROR

Check Details

Version: 0.1.7
Check: examples
Result: ERROR
    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
Flavor: r-oldrel-windows-ix86+x86_64