Error in `textConnection(clipr_read_clip(TRUE))`: invalid 'text' argument

expect_equal(read_clipboard(), NULL) # previously ""
expect_clip <- function(input, method) {
res <- if (package_available("tibble")) {
xlgl <- c("TRUE", "  true", "FALSE", "fALSE", "na", "NA")