remove clipboard functions

This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2018-05-01 09:36:45 +02:00
1 parent 6fa93fc286
commit 19ccc51f40
5 files changed
-222

No files matched your search

-12
View File
@@ -1,12 +0,0 @@
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)
}
})