P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2024-12-25 18:46:11 +01:00
Code Releases Activity

Update test-clipboard.R

Browse Source
This commit is contained in:
MS Berends 2018-03-29 14:26:26 +02:00 committed by GitHub
parent 136272cb71
commit 258e080756
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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