From b7bd7566f192181f1fe0f02309b9a56cf9af6420 Mon Sep 17 00:00:00 2001
From: Daniel Falbel <dfalbel@gmail.com>
Date: Fri, 23 Jun 2023 10:30:32 +0200
Subject: [PATCH] try following the link?

---
 tests/testthat/test-hub_download.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test-hub_download.R b/tests/testthat/test-hub_download.R
index 531e1c8..63f7636 100644
--- a/tests/testthat/test-hub_download.R
+++ b/tests/testthat/test-hub_download.R
@@ -1,9 +1,10 @@
 skip_on_cran()
 
 test_that("hub_download", {
-  file <- file(hub_download("gpt2", filename = "config.json"))
+  file <- hub_download("gpt2", filename = "config.json")
+
   expect_equal(
-    jsonlite::fromJSON(file)$architectures,
+    jsonlite::fromJSON(fs::link_path(file))$architectures,
     "GPT2LMHeadModel"
   )