xml2 and officer are easier to load in in setup

Author: Melkiades

tests/testthat/setup.R

@@ -1,4 +1,6 @@
 # Collection of functions and data pre-processing to help with testing
+library(officer)
+library(xml2)
 
 # xml related functions --------------------------------------------------------
 get_docx_xml <- function(x) {
@@ -10,7 +12,7 @@ get_docx_xml <- function(x) {
     x <- docx_file
   }
   redoc <- read_docx(x)
-  xml2::xml_child(docx_body_xml(redoc))
+  xml_child(docx_body_xml(redoc))
 }
 
 get_pptx_xml <- function(x) {
@@ -25,7 +27,7 @@ get_pptx_xml <- function(x) {
 
   redoc <- read_pptx(x)
   slide <- redoc$slide$get_slide(redoc$cursor)
-  xml2::xml_child(slide$get())
+  xml_child(slide$get())
 }
 
 get_html_xml <- function(x) {
@@ -35,7 +37,7 @@ get_html_xml <- function(x) {
     x <- html_file
   }
   doc <- read_html(x)
-  xml2::xml_child(doc, "body")
+  xml_child(doc, "body")
 }
 get_pdf_text <- function(x, extract_fun) {
   stopifnot(grepl("\\.pdf$", x))

tests/testthat/test-borders.R

@@ -92,7 +92,7 @@ test_that("pdf complex borders", {
   # skip_if_not_installed("rmarkdown") # in imports surely installed during tests
   # skip_if_not(pandoc_available()) # I guess this is in pandoc_version()
   # skip_if_not(pandoc_version() > numeric_version("2.7.3"))
-  rmarkdown::render(rmd_file,
+  render(rmd_file,
     output_format = rmarkdown::pdf_document(latex_engine = "xelatex"),
     output_file = pdf_file,
     envir = new.env(),

tests/testthat/test-captions-rmd.R

@@ -13,7 +13,7 @@ html_file <- gsub("\\.Rmd$", ".html", rmd_file)
 docx_file <- gsub("\\.Rmd$", ".docx", rmd_file)
 pdf_file <- gsub("\\.Rmd$", ".pdf", rmd_file)
 
-testthat::test_that("with html_document", {
+test_that("with html_document", {
   skip_if_not_local_testing()
   unlink(html_file, force = TRUE)
   render(rmd_file,
@@ -110,10 +110,10 @@ test_that("with word_document", {
   expect_length(bookmarks, 0)
 })
 
-testthat::test_that("with word_document2", {
+test_that("with word_document2", {
   skip_if_not_local_testing(min_pandoc_version = "2.7.3")
   skip_if(pandoc_version() == numeric_version("2.9.2.1"))
-  testthat::skip_if_not_installed("bookdown")
+  skip_if_not_installed("bookdown")
 
   unlink(docx_file, force = TRUE)
   render(rmd_file,
@@ -149,7 +149,7 @@ testthat::test_that("with word_document2", {
 
 
 
-testthat::test_that("word with officer", {
+test_that("word with officer", {
   unlink(docx_file, force = TRUE)
   ft <- flextable(head(cars))
   ft <- theme_vanilla(ft)
@@ -193,7 +193,7 @@ test_that("with pdf_document2", {
     doc <- get_pdf_text(pdf_file, extract_fun = pdftools::pdf_text)
     expect_true(any(grepl("Cross-reference is there: 2", doc, fixed = TRUE)))
   } else {
-    testthat::expect_false(sucess) # only necessary to avoid a note
+    expect_false(sucess) # only necessary to avoid a note
   }
 })