Remove code needed for old R versions (#2759)

Author: lgibson7

R/rd.R

@@ -6,15 +6,7 @@ rd_text <- function(x, fragment = TRUE) {
 }
 
 rd_file <- function(path, pkg_path = NULL) {
-  if (getRversion() >= "3.4.0") {
-    macros <- tools::loadPkgRdMacros(pkg_path)
-    set_classes(tools::parse_Rd(path, macros = macros, encoding = "UTF-8"))
-  } else if (getRversion() >= "3.2.0") {
-    macros <- tools::loadPkgRdMacros(pkg_path, TRUE)
-    set_classes(tools::parse_Rd(path, macros = macros, encoding = "UTF-8"))
-  } else {
-    set_classes(tools::parse_Rd(path, encoding = "UTF-8"))
-  }
+  set_classes(tools::parse_Rd(path, encoding = "UTF-8"))
 }
 
 #' Translate an Rd string to its HTML output

tests/testthat/test-build-home-license.R

@@ -1,6 +1,4 @@
 test_that("link_license matchs exactly", {
-  # R 3.1 uses http url
-  skip_if_not(getRversion() >= "3.2.0")
 
   # Shouldn't match first GPL-2
   expect_equal(

tests/testthat/test-build-reference.R

@@ -1,5 +1,4 @@
 test_that("parse failures include file name", {
-  skip_if_not(getRversion() >= "4.0.0")
   pkg <- local_pkgdown_site(test_path("assets/reference-fail"))
   expect_snapshot(build_reference(pkg), error = TRUE)
 })

tests/testthat/test-rd-html.R

@@ -428,9 +428,6 @@ test_that("deqn", {
 })
 
 test_that("special", {
-  # Fails due to a bug prior to R 4.0.0:
-  # https://bugs.r-project.org/show_bug.cgi?id=17727
-  skip_if_not(getRversion() >= "4.0.0")
   out <- rd2html("\\special{( \\dots )}")
   expect_equal(out, "( ... )")
 })