status as URL cf #102

ropensci · Apr 23, 2018 · 7ba438f · 7ba438f
1 parent 9c9a3b7
commit 7ba438f
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 5 deletions.
diff --git a/R/guess_metadata.R b/R/guess_metadata.R
@@ -71,8 +71,7 @@ guess_devStatus <- function(readme) {
     status_badge <- badges[grepl("Project Status", badges$text),]
     if (!is.null(status_badge)) {
       if(nrow(status_badge) >0){
-        gsub(".*(http://www.repostatus.org/#(\\w+)).*", "\\2",
-             status_badge$link)[[1]]
+        status_badge$link[1]
       }
     } else {
       NULL

diff --git a/codemeta.json b/codemeta.json
@@ -401,10 +401,10 @@
     }
   ],
   "contIntegration": "https://travis-ci.org/ropensci/codemetar",
-  "developmentStatus": "active",
+  "developmentStatus": "http://www.repostatus.org/#active",
   "releaseNotes": "https://github.com/ropensci/codemetar/blob/master/NEWS.md",
   "readme": "https://github.com/ropensci/codemetar/blob/master/README.md",
-  "fileSize": "272.551KB",
+  "fileSize": "273.822KB",
   "review": {
     "@type": "Review",
     "url": "https://github.com/ropensci/onboarding/issues/130",

diff --git a/tests/testthat/test-guess_metadata.R b/tests/testthat/test-guess_metadata.R
@@ -32,7 +32,7 @@ testthat::test_that("guess_ci",{
 testthat::test_that("guess_devStatus",{
   f <- system.file("examples/README_ex.md", package="codemetar")
   a <- guess_devStatus(f)
-  expect_equal(a, "wip")
+  expect_equal(a, "http://www.repostatus.org/#wip")
 
   f <- system.file("examples/README_codemetar_bad.md", package="codemetar")
   a <- guess_devStatus(f)