add cpuwww function and test

ComputationalProteomicsUnit · Jan 1, 2017 · 5c15f16 · 5c15f16
1 parent 05b3822
commit 5c15f16
Show file tree

Hide file tree

Showing 6 changed files with 51 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -6,6 +6,12 @@ Maintainer: Laurent Gatto <[email protected]>
 Description: Miscellaneous helper functions aimed at facilitating and
     standardising simple repetitive tasks.
 Imports: grDevices, graphics, utils, scales    		  
-Suggests: testthat
+Suggests:
+    testthat,
+    BiocStyle,
+    httr,
+    knitr,
+    rmarkdown
 License: GPL-3
 RoxygenNote: 5.0.1
+VignetteBuilder: knitr
diff --git a/NAMESPACE b/NAMESPACE
@@ -5,7 +5,7 @@ importFrom("utils", "head", "tail")
 importFrom("scales", "col2hcl")
 
 
-export(cputools,
+export(cputools, cpuwww,
        biocVersions,
        makeTravisShield, makeCodecovShield,
        makeBiocBuildShield, makeBiocCovrShield, 

diff --git a/R/cpu.R b/R/cpu.R
@@ -0,0 +1,10 @@
+##' Return the CPU webpage url.
+##'
+##' @title Return the CPU webpage url.
+##' @return The URL as a \code{character}
+##' @author Laurent Gatto
+##' @rdname
+##' @examples
+##' cpuwww()
+cpuwww <- function()
+    "[Computational Proteomics Unit](http://cpu.sysbiol.cam.ac.uk/)"
diff --git a/man/cpuwww.Rd b/man/cpuwww.Rd
diff --git a/tests/testthat/test_biocVersions.R b/tests/testthat/test_biocVersions.R
@@ -1,7 +1,8 @@
-test_that("cputools", {
+test_that("Bioconductor version numbers", {
     v <- biocVersions()
     ## update me for every new release
     v0 <- c("3.4", "3.5")
     names(v0) <- c("release", "devel")
     expect_identical(v, v0)
 })
+
diff --git a/tests/testthat/test_cpu.R b/tests/testthat/test_cpu.R
@@ -0,0 +1,10 @@
+context("Computational Proteomics Unit")
+
+test_that("CPU www", {
+    x <- cpuwww()
+    expect_identical(x,
+                     "[Computational Proteomics Unit](http://cpu.sysbiol.cam.ac.uk/)")
+    url <- gsub("^.+\\((.+)\\)", "\\1", x)
+    got <- httr::GET(url)
+    expect_identical(got, stop_for_status(got))
+})