mirror of
https://github.com/msberends/AMR.git
synced 2024-12-26 05:26:13 +01:00
fix tests
This commit is contained in:
parent
6f7730dcaa
commit
1b3cc41c08
@ -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
|
||||||
|
Binary file not shown.
@ -1,9 +1,11 @@
|
|||||||
context("clipboard.R")
|
context("clipboard.R")
|
||||||
|
|
||||||
test_that("clipboard works", {
|
test_that("clipboard works", {
|
||||||
|
if (Sys.info()['sysname'] == "Windows") {
|
||||||
# why is the <<- needed? Won't work without it...
|
# why is the <<- needed? Won't work without it...
|
||||||
t1 <<- AMR::antibiotics
|
t1 <<- AMR::antibiotics
|
||||||
clipboard_export(t1, info = FALSE)
|
clipboard_export(t1, info = FALSE)
|
||||||
t2 <- clipboard_import()
|
t2 <- clipboard_import()
|
||||||
expect_equal(t1, t2)
|
expect_equal(t1, t2)
|
||||||
|
}
|
||||||
})
|
})
|
||||||
|
Loading…
Reference in New Issue
Block a user