Fix check_renv behavior

[juliasilge]

Closes #189

No incorrect message now:

library(tidymodels)
library(pins)
library(vetiver)
#> 
#> Attaching package: 'vetiver'
#> The following object is masked from 'package:tune':
#> 
#>     load_pkgs

data(bivariate)
ranger_fit <- 
    workflow(Class ~ A + B, rand_forest(mode = "classification")) %>%
    fit(bivariate_train)

v <- vetiver_model(ranger_fit, "biv-rf")

b <- board_temp()
b %>% vetiver_pin_write(v, check_renv = TRUE)
#> Creating new version '20230407T172359Z-f060b'
#> Writing to pin 'biv-rf'
#> 
#> Create a Model Card for your published model
#> • Model Cards provide a framework for transparent, responsible reporting
#> • Use the vetiver `.Rmd` template as a place to start

out <- b %>% vetiver_pin_read("biv-rf", check_renv = TRUE)

^{Created on 2023-04-07 with reprex v2.0.2}