P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 08:32:04 +02:00
Code Releases Activity

fix clipboard check

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-04-30 16:54:37 +02:00
parent 8fe70d5652
commit 6fa93fc286
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,12 +1,12 @@
context("clipboard.R")
test_that("clipboard works", {
t1 <<- AMR::antibiotics # why is the <<- needed? Won't work without it...
clipboard_export(t1, info = FALSE)
t2 <- clipboard_import()
if (is.null(t1) | is.null(t2)) {
t1 <- TRUE
t2 <- TRUE
if (grepl(Sys.info()['sysname'], "windows", ignore.case = TRUE)) {
t1 <<- AMR::antibiotics # why is the <<- needed? Won't work without it...
clipboard_export(t1, info = FALSE)
t2 <- clipboard_import()
expect_equal(t1, t2)
} else {
expect_equal(TRUE, TRUE)
}
expect_equal(t1, t2)
})