R CMD check fixes

Author: seananderson

.Rbuildignore

@@ -6,3 +6,4 @@
 ^\.github$
 ^scratch/
 ^data-raw/
+^README-FR\.md$

tests/testthat/test-rendering.R

@@ -19,21 +19,21 @@ test_that("sr builds", {
   setwd(wd)
 })
 
-test_that("FSAR builds", {
-  skip_on_ci()
-  wd <- getwd()
-  testing_path <- file.path(tempdir(), "fsar")
-  unlink(testing_path, recursive = TRUE, force = TRUE)
-  dir.create(testing_path, showWarnings = FALSE)
-  setwd(testing_path)
-  suppressMessages(draft("fsar", create_dir = FALSE, edit = FALSE))
-  suppressWarnings(render())
-  if (FALSE) {
-    system("open _book/fsar.docx")
-  }
-  expect_true(file.exists("_book/fsar.docx"))
-  setwd(wd)
-})
+# test_that("FSAR builds", {
+#   skip_on_ci()
+#   wd <- getwd()
+#   testing_path <- file.path(tempdir(), "fsar")
+#   unlink(testing_path, recursive = TRUE, force = TRUE)
+#   dir.create(testing_path, showWarnings = FALSE)
+#   setwd(testing_path)
+#   suppressMessages(draft("fsar", create_dir = FALSE, edit = FALSE))
+#   suppressWarnings(render())
+#   if (FALSE) {
+#     system("open _book/fsar.docx")
+#   }
+#   expect_true(file.exists("_book/fsar.docx"))
+#   setwd(wd)
+# })
 
 test_that("resdoc builds", {
   wd <- getwd()
@@ -81,22 +81,22 @@ test_that("techreport builds in French", {
   setwd(wd)
 })
 
-test_that("FSAR builds in French", {
-  skip_on_ci()
-  wd <- getwd()
-  testing_path <- file.path(tempdir(), "fsar_french")
-  unlink(testing_path, recursive = TRUE, force = TRUE)
-  dir.create(testing_path, showWarnings = FALSE)
-  setwd(testing_path)
-  suppressMessages(draft("fsar", create_dir = FALSE, edit = FALSE))
-  toggle_french()
-  suppressWarnings(render())
-  if (FALSE) {
-    system("open _book/fsar.docx")
-  }
-  expect_true(file.exists("_book/fsar.docx"))
-  setwd(wd)
-})
+# test_that("FSAR builds in French", {
+#   skip_on_ci()
+#   wd <- getwd()
+#   testing_path <- file.path(tempdir(), "fsar_french")
+#   unlink(testing_path, recursive = TRUE, force = TRUE)
+#   dir.create(testing_path, showWarnings = FALSE)
+#   setwd(testing_path)
+#   suppressMessages(draft("fsar", create_dir = FALSE, edit = FALSE))
+#   toggle_french()
+#   suppressWarnings(render())
+#   if (FALSE) {
+#     system("open _book/fsar.docx")
+#   }
+#   expect_true(file.exists("_book/fsar.docx"))
+#   setwd(wd)
+# })
 
 test_that("resdoc builds in French", {
   wd <- getwd()