From 258e0807568e7994f7ec19a93d4049c8ea446987 Mon Sep 17 00:00:00 2001
From: MS Berends <31037261+msberends@users.noreply.github.com>
Date: Thu, 29 Mar 2018 14:26:26 +0200
Subject: [PATCH] Update test-clipboard.R

---
 tests/testthat/test-clipboard.R | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/tests/testthat/test-clipboard.R b/tests/testthat/test-clipboard.R
index 30123564..9d025bdb 100644
--- a/tests/testthat/test-clipboard.R
+++ b/tests/testthat/test-clipboard.R
@@ -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)
+  }
 })