tests/testthat/test-page_template_docx.R

In reporter: Creates Statistical Reports

context("Page Template DOCX Tests")


# 
# test_that("get_titles_docx function works as expected.", {
#   
#   
#   rpt <- create_report("", output_type = "HTML", font = "Arial", 
#                        font_size = 12) %>%
#     titles("Hello", "here is \n something", blank_row = "below") %>%
#     footnotes("Goodbye", blank_row = "below")
#   
#   rpt <- page_setup_html(rpt)
#   
#   t <- get_titles_html(rpt$titles, 6, rpt)
#   t
#   expect_equal(length(t$html), 1)
#   expect_equal(t$lines, 4)
#   
# })


# 
# test_that("get_footnotes_docx function works as expected.", {
#   
#   
#   rpt <- create_report("", output_type = "HTML", font = "Arial", 
#                        font_size = 12) %>%
#     titles("Hello", blank_row = "below") %>%
#     footnotes("Goodbye", blank_row = "below")
#   
#   rpt <- page_setup_html(rpt)
#   
#   t <- get_footnotes_html(rpt$footnotes, 6, rpt)
#   t
#   expect_equal(t$html,
#                paste0("<table ",
#                       "style=\"width:9in;text-align: left;\">", 
#                       "\n<tr><td>Goodbye</td></tr>\n",
#                       "<tr><td>&nbsp;</td></tr>\n</table>"))
#   expect_equal(t$lines, 2)
#   
# })
# 
# 
# 
# test_that("get_title_header_docx function works as expected.", {
# 
#   rpt2 <- create_report("", font = "Arial", font_size = 12) %>%
#     title_header("Hello", right = paste("Right here is something",
#     "really long that will wrap and wrap and wrap and wrap keep wrapping"))
# 
#   rpt2 <- page_setup_html(rpt2)
# 
#   th <- get_title_header_html(rpt2$title_hdr, 6, rpt2)
#   th
#   expect_equal(nchar(th$html) > 1, TRUE)
#   expect_equal(th$lines, 4) 
# 
# })

 
test_that("get_page_header_docx works as expected.", {

  rpt3 <- create_report("", font = "Arial", font_size = 12) %>%
    page_header(left= c("Left"), right = "Right") %>%
                # right = paste("Right here is something that might wrap.",
                #               "If it is long enough so let's make it longer",
                #               "If it is long enough so let's make it longer",
                #               "If it is long enough so let's make it longer")
                # ) %>%
    page_footer("Left", "Center", "Right here is something")

  rpt3 <- page_setup_docx(rpt3)

  ph <- get_page_header_docx(rpt3)
  ph

  expect_equal(ph$lines, 1)

})

 
# test_that("get_page_footer_docx works as expected.", {
# 
#   rpt3 <- create_report("", font = "Arial", font_size = 12) %>%
#     page_header(left= c("Hello"),
#                 right = paste("Right here is something that might wrap.",
#                               "If it is long enough so let's make it longer",
#                               "If it is long enough so let's make it longer",
#                               "If it is long enough so let's make it longer")) %>%
#     page_footer("Left", "Center", "Right here is something")
# 
#   rpt3 <- page_setup_html(rpt3)
# 
#   pf <- get_page_footer_html(rpt3)
#   pf
# 
#   expect_equal(pf$lines, 2)
#   
# })
# 
# 
# 
# test_that("get_pageby_docx works as expected.", {
# 
#   tbl <- create_table(mtcars) %>%
#     page_by(cyl, "Cylinders:")
# 
#   rpt <- create_report("", font = "Arial", font_size = 12) %>%
#     titles("Hello") %>%
#     footnotes("Goodbye") %>%
#     add_content(tbl)
# 
#   rpt <- page_setup_rtf(rpt)
# 
#   rpt$line_height
# 
#   res <- get_page_by_html(tbl$page_by, 6, "fork", rpt, "left")
#   res
# 
#   expect_equal(res$lines, 2)
#   expect_equal(res$html,
#                paste0("<table style=\"text-align: left;width:6in;\">\n",
#                       "<tr><td style=\"\">Cylinders:fork</td></tr>\n", 
#                       "<tr><td style=\"\">&nbsp;</td></tr>\n</table>"))
# 
# })
# 
# 
# test_that("get_cell_borders_docx works as expected.", {
#   
#   expect_equal(get_cell_borders_html(1, 1, 1, 1, c("all")),
#       paste0("border-top:thin solid;border-bottom:thin solid;",
#              "border-left:thin solid;border-right:thin solid;"))
#   
#   expect_equal(get_cell_borders_html(1, 1, 1, 1, c("all"), exclude = "bottom"),
#                paste0("border-top:thin solid;",
#                       "border-left:thin solid;border-right:thin solid;"))
#   
# })