From 97bfdc4b2c32ae6fd828357c1b0d92f08f887992 Mon Sep 17 00:00:00 2001 From: "alex.hill@gmail.com" Date: Tue, 6 Aug 2024 15:24:26 +0100 Subject: [PATCH] include on_cran --- R/metadata.R | 6 ++++-- tests/testthat/test_metadata.R | 4 ++++ 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/R/metadata.R b/R/metadata.R index ef46fa7..b97eeca 100644 --- a/R/metadata.R +++ b/R/metadata.R @@ -10,7 +10,8 @@ compile_metadata <- function(gh_data, cran_data = NULL, description_contents = N if (!("github_metadata" %in% class(gh_data))) { stop("gh_data must be of type 'github_metadata'") } - if (is.null(cran_data)) { + on_cran <- !is.null(cran_data) + if (on_cran) { if (is.null(description_contents)) { stop("If CRAN metadata is NULL, must provide DESCRIPTION contents") } @@ -41,7 +42,8 @@ compile_metadata <- function(gh_data, cran_data = NULL, description_contents = N date_published = date_published, has_tests = gh_data$has_tests, has_vignettes = gh_data$has_vignettes, - num_contributors = gh_data$num_contributors + num_contributors = gh_data$num_contributors, + on_cran = on_cran ) class(ret) <- append("htahub_metadata", class(ret)) ret diff --git a/tests/testthat/test_metadata.R b/tests/testthat/test_metadata.R index b96a017..5426bbf 100644 --- a/tests/testthat/test_metadata.R +++ b/tests/testthat/test_metadata.R @@ -9,3 +9,7 @@ test_that("can read metadata from cran", { expect_equal(meta$maintainer, "Rob Young") expect_equal(meta$date_published, "2022-04-27 14:50:07 UTC") }) + +test_that("Can compile metadata", { + +})