Minor formatting changes

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: texreg
 Version: 1.37.5
-Date: 2020-06-16
+Date: 2020-06-17
 Title: Conversion of R Regression Output to LaTeX or HTML Tables
 Authors@R: c(person(given = "Philip", family = "Leifeld", email = "philip.leifeld@essex.ac.uk", role = c("aut", "cre")),
              person(given = "Claudia", family = "Zucca", email = "claudia.zucca@glasgow.ac.uk", role = "ctb"))

tests/testthat/test-texreg.R

@@ -299,11 +299,6 @@ test_that("arguments work in screenreg function", {
                "\\n    Petal\\.Width")
 })
 
-## formatting table to test word output in knitreg
-mr <- matrixreg(model1, output.type = "ascii", include.attributes = FALSE, trim = TRUE)
-colnames(mr) <- mr[1, ]
-mr <- mr[-1, ]
-
 test_that("knitreg function works", {
   with_mock(requireNamespace = function (package, ...) {
     ifelse(package == "knitr", return(FALSE), return(TRUE))
@@ -321,7 +316,7 @@ test_that("knitreg function works", {
   require("rmarkdown")
   expect_match(knitreg(model1), "Petal.Width")
 
-  ## the following evaluates that knitreg chooses and outputs the expected format
+  # the following evaluates that knitreg chooses and outputs the expected format
   knitr::opts_knit$set(out.format = "markdown")
 
   with_mock("rmarkdown::all_output_formats" = function (input) {"html_document"},
@@ -344,6 +339,11 @@ test_that("knitreg function works", {
             "knitr::current_input" = function () {NULL},
             expect_equivalent(knitreg(model1), texreg(model1, use.packages = FALSE)))
 
+  # formatting table to test word output in knitreg
+  mr <- matrixreg(model1, output.type = "ascii", include.attributes = FALSE, trim = TRUE)
+  colnames(mr) <- mr[1, ]
+  mr <- mr[-1, ]
+
   with_mock("rmarkdown::all_output_formats" = function (input) {"word_document"},
             "knitr::current_input" = function () {NULL},
             expect_equivalent(knitreg(model1), knitr::kable(mr)))