From 4b9abf438cb86605019a10c10b232baa93791c6d Mon Sep 17 00:00:00 2001
From: shikokuchuo <53399081+shikokuchuo@users.noreply.github.com>
Date: Wed, 12 Jun 2024 20:17:17 +0100
Subject: [PATCH] use trim_url()

---
 R/meta_checks.R   | 2 +-
 R/meta_packages.R | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/meta_checks.R b/R/meta_checks.R
index 84744de..965a2ae 100644
--- a/R/meta_checks.R
+++ b/R/meta_checks.R
@@ -19,7 +19,7 @@ meta_checks <- function(repo = "https://multiverse.r-multiverse.org") {
     "_status"
   )
   listing <- file.path(
-    trim_trailing_slash(repo),
+    trim_url(repo),
     "api",
     paste0("packages?stream=true&fields=", paste(fields, collapse = ","))
   )
diff --git a/R/meta_packages.R b/R/meta_packages.R
index 820f966..816ca89 100644
--- a/R/meta_packages.R
+++ b/R/meta_packages.R
@@ -10,7 +10,7 @@
 meta_packages <- function(repo = "https://multiverse.r-multiverse.org") {
   fields <- c("Version", "Remotes", "RemoteSha")
   listing <- file.path(
-    trim_trailing_slash(repo),
+    trim_url(repo),
     "src",
     "contrib",
     paste0("PACKAGES.json?fields=", paste(fields, collapse = ","))