use httr2 instead of httr

easystats · Oct 4, 2024 · edb2650 · edb2650
1 parent 358d02c
commit edb2650
Show file tree

Hide file tree

Showing 12 changed files with 33 additions and 34 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -89,7 +89,6 @@ Suggests:
     ggdist,
     ggplot2,
     glmmTMB,
-    httr,
     httr2,
     KernSmooth,
     knitr,

diff --git a/tests/testthat/test-bayesfactor_parameters.R b/tests/testthat/test-bayesfactor_parameters.R
@@ -57,7 +57,7 @@ test_that("bayesfactor_parameters RSTANARM", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("logspline", "2.1.21")
   skip_if_not_or_load_if_installed("rstanarm")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   fit <- suppressMessages(stan_glm(mpg ~ ., data = mtcars, refresh = 0))
 
@@ -93,7 +93,7 @@ test_that("bayesfactor_parameters RSTANARM", {
 test_that("bayesfactor_parameters BRMS", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("logspline", "2.1.21")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("brms")
   skip_if_not_or_load_if_installed("cmdstanr")
   skip_if_not(dir.exists(cmdstanr::cmdstan_default_install_path()))

diff --git a/tests/testthat/test-brms.R b/tests/testthat/test-brms.R
@@ -38,7 +38,7 @@ test_that("brms", {
   skip_on_cran()
   skip_if_offline()
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   set.seed(333)
   model <- insight::download_model("brms_1")
@@ -57,7 +57,7 @@ test_that("brms", {
   skip_on_cran()
   skip_if_offline()
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   set.seed(333)
   model <- insight::download_model("brms_mv_2")
@@ -81,7 +81,7 @@ test_that("brms", {
   skip_on_cran()
   skip_if_offline()
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   set.seed(333)
   model <- insight::download_model("brms_2")

diff --git a/tests/testthat/test-ci.R b/tests/testthat/test-ci.R
@@ -32,7 +32,7 @@ test_that("ci", {
 test_that("ci", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("brms")
 
   m <- insight::download_model("stanreg_merMod_5")
@@ -49,7 +49,7 @@ test_that("ci", {
 test_that("rope", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("brms")
 
   m <- insight::download_model("brms_zi_3")

diff --git a/tests/testthat/test-describe_posterior.R b/tests/testthat/test-describe_posterior.R
@@ -3,7 +3,7 @@ test_that("describe_posterior", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
   skip_on_os("linux")
 
@@ -113,7 +113,7 @@ test_that("describe_posterior", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   set.seed(333)
@@ -250,7 +250,7 @@ test_that("describe_posterior", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   m <- insight::download_model("stanreg_merMod_5")
@@ -267,7 +267,7 @@ test_that("describe_posterior", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   m <- insight::download_model("brms_zi_3")
@@ -286,7 +286,7 @@ test_that("describe_posterior w/ BF+SI", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   x <- insight::download_model("stanreg_lm_1")
@@ -322,7 +322,7 @@ test_that("describe_posterior: BayesFactor", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   set.seed(123)

diff --git a/tests/testthat/test-describe_prior.R b/tests/testthat/test-describe_prior.R
@@ -2,7 +2,7 @@ test_that("describe_prior", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
   skip_on_os("linux")
 

diff --git a/tests/testthat/test-hdi.R b/tests/testthat/test-hdi.R
@@ -3,7 +3,7 @@ test_that("hdi", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   expect_equal(hdi(distribution_normal(1000), ci = 0.90)$CI_low[1], -1.64, tolerance = 0.02)
@@ -25,7 +25,7 @@ test_that("ci", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   m <- insight::download_model("stanreg_merMod_5")
@@ -43,7 +43,7 @@ test_that("rope", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   m <- insight::download_model("brms_zi_3")
@@ -61,7 +61,7 @@ test_that("ci - BayesFactor", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   mod_bf <- proportionBF(y = 15, N = 25, p = 0.5)

diff --git a/tests/testthat/test-point_estimate.R b/tests/testthat/test-point_estimate.R
@@ -2,7 +2,7 @@ test_that("point_estimate: stanreg", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   m <- insight::download_model("stanreg_merMod_5")
   p <- insight::get_parameters(m, effects = "all")
@@ -18,7 +18,7 @@ test_that("point_estimate: brms", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   m <- insight::download_model("brms_zi_3")
   p <- insight::get_parameters(m, effects = "all", component = "all")

diff --git a/tests/testthat/test-print.R b/tests/testthat/test-print.R
@@ -2,7 +2,7 @@ test_that("print.describe_posterior", {
   skip_on_cran()
   skip_if_offline()
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   m <- insight::download_model("brms_zi_3")
   expect_snapshot(describe_posterior(m, verbose = FALSE), variant = "windows")

diff --git a/tests/testthat/test-rstanarm.R b/tests/testthat/test-rstanarm.R
@@ -2,7 +2,7 @@ test_that("rstanarm", {
   skip_on_cran()
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   set.seed(333)
   model <- insight::download_model("stanreg_lm_1")
@@ -50,7 +50,7 @@ test_that("rstanarm", {
   skip_on_cran()
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   set.seed(333)
   model <- insight::download_model("stanreg_glm_3")
@@ -69,7 +69,7 @@ test_that("rstanarm", {
   skip_on_cran()
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   set.seed(333)
   model <- insight::download_model("stanreg_merMod_3")
@@ -89,7 +89,7 @@ test_that("rstanarm", {
   skip_on_cran()
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   set.seed(333)
   model <- insight::download_model("stanmvreg_1")
@@ -109,7 +109,7 @@ test_that("rstanarm", {
   skip_on_cran()
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
 
   set.seed(333)
   model <- insight::download_model("stanmvreg_1")

diff --git a/tests/testthat/test-spi.R b/tests/testthat/test-spi.R
@@ -3,7 +3,7 @@ test_that("spi", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   expect_equal(spi(distribution_normal(1000), ci = 0.90)$CI_low[1], -1.65, tolerance = 0.02)
@@ -25,7 +25,7 @@ test_that("ci", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   m <- insight::download_model("stanreg_merMod_5")
@@ -42,7 +42,7 @@ test_that("spi brms", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   m <- insight::download_model("brms_zi_3")
@@ -60,7 +60,7 @@ test_that("ci - BayesFactor", {
   skip_if_offline()
   skip_if_not_or_load_if_installed("rstanarm")
   skip_if_not_or_load_if_installed("brms")
-  skip_if_not_or_load_if_installed("httr")
+  skip_if_not_or_load_if_installed("httr2")
   skip_if_not_or_load_if_installed("BayesFactor")
 
   mod_bf <- proportionBF(y = 15, N = 25, p = 0.5)

diff --git a/vignettes/mediation.Rmd b/vignettes/mediation.Rmd
@@ -1,6 +1,6 @@
 ---
 title: "Mediation Analysis using Bayesian Regression Models"
-output: 
+output:
   rmarkdown::html_vignette:
     toc: true
     fig_width: 10.08
@@ -10,7 +10,7 @@ vignette: >
   \usepackage[utf8]{inputenc}
   %\VignetteIndexEntry{Mediation Analysis using Bayesian Regression Models}
   %\VignetteEngine{knitr::rmarkdown}
-editor_options: 
+editor_options:
   chunk_output_type: console
 bibliography: bibliography.bib
 csl: apa.csl
@@ -31,7 +31,7 @@ options(width = 80)
 
 if (!requireNamespace("mediation", quietly = TRUE) ||
   !requireNamespace("curl", quietly = TRUE) ||
-  !requireNamespace("httr", quietly = TRUE) ||
+  !requireNamespace("httr2", quietly = TRUE) ||
   !requireNamespace("lavaan", quietly = TRUE) ||
   !requireNamespace("brms", quietly = TRUE) ||
   !requireNamespace("rstanarm", quietly = TRUE) ||