diff --git a/tests/testthat/test-make_pandoc_alt.R b/tests/testthat/test-make_pandoc_alt.R
index 5ab0fdd2..2fdd7945 100644
--- a/tests/testthat/test-make_pandoc_alt.R
+++ b/tests/testthat/test-make_pandoc_alt.R
@@ -1,6 +1,7 @@
 
 test_that("make_pandoc_alt() converts alt text good", {
 
+  skip_if(R.version$major < 4)
   f <- textConnection(paste(c("![has alt text](img1.png)", 
       "",
    "![](needs-alt.png)",