Vcr: VCRテストはlongurl :: expand_urls（）で失敗します

私が開発しているパッケージでは、関数のテストが失敗しており、問題をソースにさかのぼって追跡しました： longurl::expand_urls()

機能の例として、 longurl::expand_urls("http://bit.ly/2SfWO3K", seconds=10)$expanded_url)を実行すると、 "https://www.aect.org/about_us.php" $が返されます。

ただし、これをvcrテストに入れると失敗し、理由はわかりません。

test_that（ "longurl :: Expand_urls（）はvcrで機能します"、{

vcr :: use_cassette（ "longurl_test"、{
url1 <-longurl :: Expand_urls（ "http://bit.ly/2SfWO3K"、seconds = 10）$ Expanded_url
}）

expect_equal（url1、 "https://www.aect.org/about_us.php"）
}）

私が使用しているもの：

• Rバージョン4.0.2
• VCR 0.6.0
• longurl 0.3.3
• testthat 3.0.0