mirror of
https://github.com/msberends/AMR.git
synced 2024-12-27 10:46:12 +01:00
13 lines
342 B
R
13 lines
342 B
R
context("clipboard.R")
|
|
|
|
test_that("clipboard works", {
|
|
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)
|
|
}
|
|
})
|