more work

.Rbuildignore

@@ -1,6 +1,6 @@
 ^starchart\.Rproj$
 ^\.Rproj\.user$
 ^LICENSE\.md$
-^man/universe_query\.Rd$
 ^\.github$
 ^README\.Rmd$
+^man/universe_query\.Rd$

NAMESPACE

@@ -1,4 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
 export(universe_ls)
+export(universe_package)
 export(universe_packages)

R/universe.R

@@ -47,3 +47,31 @@ universe_packages <- function(universe, limit = 100) {
     query_params = list(limit = limit)
   )
 }
+
+
+#' Info on a single packages in an universe
+#'
+#' @param universe Name of the universe (character of length 1)
+#' @param package Name of the package (character of length 1)
+#'
+#' @return A list with information on the package.
+#' @export
+#'
+#' @examplesIf interactive()
+#' universe_package("jeroen", package = "curl")
+#' @family universe
+universe_package <- function(universe, package) {
+  if (!is.character(universe) || length(universe) != 1) {
+    cli::cli_abort("{.arg universe} must be a character of length 1.")
+  }
+  # TODO assert that universe is an universe
+
+  if (!package %in% universe_ls(universe)) {
+    cli::cli_abort("Can't find package {package} in universe {universe}.")
+  }
+
+  universe_query(
+    universe_url = sprintf("https://%s.r-universe.dev", universe),
+    path = sprintf("packages/%s", package),
+  )
+}

tests/testthat/_snaps/universe.md

@@ -0,0 +1,8 @@
+# universe_package() errors well
+
+    Code
+      universe_package("jeroen", package = "shiny")
+    Condition
+      Error in `universe_package()`:
+      ! Can't find package shiny in universe jeroen.
+

tests/testthat/test-universe.R

@@ -13,3 +13,17 @@ test_that("universe_packages() works", {
   expect_type(packages, "list")
   expect_gt(length(packages), 0)
 })
+
+test_that("universe_package() works", {
+  httptest2::with_mock_dir("univ-package", {
+    packages <- universe_package("jeroen", package = "curl")
+  })
+  expect_type(packages, "list")
+  expect_gt(length(packages), 0)
+})
+
+test_that("universe_package() errors well", {
+  expect_snapshot(error = TRUE, {
+    universe_package("jeroen", package = "shiny")
+  })
+})

tests/testthat/univ-package/jeroen.r-universe.dev/api/ls.json

@@ -0,0 +1,21 @@
+[
+    "RAppArmor",
+    "V8",
+    "badgen",
+    "base64",
+    "bcrypt",
+    "brotli",
+    "curl",
+    "gpg",
+    "js",
+    "jsonlite",
+    "maketools",
+    "mongolite",
+    "openssl",
+    "protolite",
+    "rjade",
+    "sys",
+    "unix",
+    "webp",
+    "webutils"
+]