a kludge for ancient windows (probably ancient knitr?)

Author: MichaelChirico

inst/tests/other.Rraw

@@ -102,7 +102,8 @@ if (loaded[["dplyr"]]) {
   DT = data.table(A=c("b","c","a"), B=10:12)
   setindex(DT, A)
   DT2 = dplyr::arrange(DT, A)
-  test(2.2, DT2[A=="c"], data.table(A="c", B=11L))
+  # old versions of dplyr might coerce to tbl or data.frame
+  if (is.data.table(DT2)) test(2.2, DT2[A=="c"], data.table(A="c", B=11L))
 }
 
 if (FALSE) {  # loaded[["reshape"]]
@@ -203,6 +204,8 @@ if (loaded[["knitr"]]) {
     tmp = tempfile()
     on.exit({unlink(tmp); options(old)})
     invisible(knit(testDir("knitr.Rmd"), tmp, quiet=TRUE))
+    # TODO(R>=3.6.0): Try removing this kludge
+    if (packageVersion("knitr") < "1.45") writeLines(gsub("^```\\s*r", "```r", readLines(tmp)))
     test(11.2, tools::Rdiff(tmp, testDir("knitr.md.save")), 0L)
   })
 }