P281424
/
AMR
mirror of https://github.com/msberends/AMR.git
1
0
Fork 0
Code Releases Activity

fix tests

This commit is contained in:
dr. M.S. (Matthijs) Berends 2018-03-27 17:58:46 +02:00
parent 6f7730dcaa
commit 1b3cc41c08
No known key found for this signature in database
GPG Key ID: AE86720DBCDA4567
3 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

@ -25,7 +25,7 @@ Description: Functions to simplify the analysis of Antimicrobial Resistance (AMR
on antibiograms according to Leclercq (2013) on antibiograms according to Leclercq (2013)
<doi:10.1111/j.1469-0691.2011.03703.x>. <doi:10.1111/j.1469-0691.2011.03703.x>.
Depends: R (>= 3.0) Depends: R (>= 3.0)
Imports: dplyr (>= 0.7.0), knitr, reshape2 (>= 1.4.0), xml2, rvest Imports: dplyr (>= 0.7.0), reshape2 (>= 1.4.0), xml2, rvest
Suggests: testthat Suggests: testthat
URL: https://cran.r-project.org/package=AMR URL: https://cran.r-project.org/package=AMR
BugReports: https://github.com/msberends/AMR/issues BugReports: https://github.com/msberends/AMR/issues

BIN
tests/testthat/Rplots.pdf
View File

Binary file not shown.

12
tests/testthat/test-clipboard.R
View File

@ -1,9 +1,11 @@
context("clipboard.R") context("clipboard.R")
test_that("clipboard works", { test_that("clipboard works", {
# why is the <<- needed? Won't work without it... if (Sys.info()['sysname'] == "Windows") {
t1 <<- AMR::antibiotics # why is the <<- needed? Won't work without it...
clipboard_export(t1, info = FALSE) t1 <<- AMR::antibiotics
t2 <- clipboard_import() clipboard_export(t1, info = FALSE)
expect_equal(t1, t2) t2 <- clipboard_import()
expect_equal(t1, t2)
}
}) })