check windows NA response

jmbarbone · Dec 3, 2024 · b9887aa · b9887aa
1 parent 22a6f74
commit b9887aa
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/clipboard.R b/R/clipboard.R
@@ -115,7 +115,7 @@ read_clipboard <- function(method = read_clipboard_methods(), ...) {
 }
 
 clipr_read_clip <- function(...) {
-  withCallingHandlers(
+  res <- withCallingHandlers(
     clipr::read_clip(...),
     simpleWarning = function(e) {
       if (grepl(
@@ -127,6 +127,12 @@ clipr_read_clip <- function(...) {
       }
     }
   )
+
+  if (is_windows() && isNA(res)) {
+    NULL
+  } else {
+    res
+  }
 }
 
 #' @export