tests/testthat/test-create_table_pdf.R

In dbosak01/reporter: Creates Statistical Reports

context("Create Table PDF Tests")

test_that("get_table_body_pdf works as expected.", {
  
  fp <- ""
  
  dat <- mtcars[1:10, 1:5]
  
  tbl <- create_table(dat) 
  
  rpt <- create_report(fp, output_type = "PDF", font = "Arial",
                       font_size = 12) %>%
    set_margins(top = 1, bottom = 1) %>%
    page_header("Left", "Right") %>%
    add_content(tbl) %>%
    page_footer("Left1", "Center1", "Right1")
  
  rpt <- page_setup_pdf(rpt)
  
  wdth <- rep(1, 5)
  names(wdth) <- names(dat)
  
  algns <- rep("center", 5)
  names(algns) <- names(dat)
  
  spwidths <- list()
  for (i in 1:10) {
  
    spwidths[[i]] <- rep(.75, 5)
    names(spwidths[[i]]) <- names(algns)
    
  }
  
  
  res <- get_table_body_pdf(rpt, dat, wdth, algns,  
                            "center", "none", 0, spwidths, styles = list())
  
  res  
  
  expect_equal(length(res$pdf), 50)
  expect_equal(round(res$lines, 1), 10.4)
  
})

test_that("get_table_header_pdf works as expected.", {
  
  fp <- ""
  
  dat <- mtcars[1:10, 1:5]
  
  tbl <- create_table(dat) 
  
  rpt <- create_report(fp, output_type = "PDF", font = "Arial",
                       font_size = 12) %>%
    set_margins(top = 1, bottom = 1) %>%
    page_header("Left", "Right") %>%
    add_content(tbl) %>%
    page_footer("Left1", "Center1", "Right1")
  
  rpt <- page_setup_pdf(rpt)
  
  wdth <- rep(1, 5)
  names(wdth) <- names(dat)
  
  algns <- rep("center", 5)
  names(algns) <- names(dat)
  
  nms <- names(dat)
  names(nms) <- nms
  nms[1] <- "Miles Per Gallon"
  nms[2] <- "Wrap One Two"
  
  
  res <- get_table_header_pdf(rpt, tbl, wdth, nms, algns, "center")
  
  res  
  
  expect_equal(length(res$pdf), 8)
  expect_equal(round(res$lines, 2), 2.15)
  
})

test_that("get_content_offsets_pdf works as expected.", {
  
  fp <- ""
  
  dat <- mtcars[1:10, 1:5]
  
  tbl <- create_table(dat) %>% 
    titles("Table 1.0", "My Nice Table") %>% 
    footnotes("Here is a footnote")
  
  rpt <- create_report(fp, output_type = "PDF", font = "Arial",
                       font_size = 12) %>%
    set_margins(top = 1, bottom = 1) %>%
    page_header("Left", "Right") %>%
    add_content(tbl) %>%
    page_footer("Left1", "Center1", "Right1")
  
  rpt <- page_setup_pdf(rpt)
  
  wdth <- rep(1, 5)
  names(wdth) <- names(dat)
  
  algns <- rep("center", 5)
  names(algns) <- names(dat)
  
  nms <- names(dat)
  names(nms) <- nms
  nms[1] <- "Miles/Gallon"
  
  pi <- list(keys = names(dat), col_width = wdth, label = nms,
             label_align = algns, table_align = "center")
  
  res <- get_content_offsets_pdf(rpt, tbl, pi, "both")
  res
  
  # Includes 3 extra points for header underline
  expect_equal(round(res$lines[["upper"]], 6), 4.145455)  
  expect_equal(res$lines[["lower"]], 2)
  expect_equal(res$lines[["blank_upper"]], 1)
  expect_equal(res$lines[["blank_lower"]], 1)
  
})

test_that("create_table_pdf works as expected.", {
  
  fp <- ""
  
  dat <- mtcars[1:10, 1:5]
  
  tbl <- create_table(dat) %>% 
    titles("Table 1.0", "My Nice Table") %>% 
    footnotes("Here is a footnote")
  
  rpt <- create_report(fp, output_type = "PDF", font = "Arial",
                       font_size = 12) %>%
    set_margins(top = 1, bottom = 1) %>%
    page_header("Left", "Right") %>%
    add_content(tbl) %>%
    page_footer("Left1", "Center1", "Right1")
  
  rpt <- page_setup_pdf(rpt)
  
  wdth <- rep(1, 5)
  names(wdth) <- names(dat)
  
  algns <- rep("center", 5)
  names(algns) <- names(dat)
  
  nms <- names(dat)
  names(nms) <- nms
 # nms[1] <- "Miles/Gallon"
  
  spwidths <- list()
  for (i in 1:10) {
    
    spwidths[[i]] <- rep(.75, 5)
    names(spwidths[[i]]) <- names(algns)
    
  }
  
  pi <- list(keys = names(dat), col_width = wdth, label = nms, col_align = algns,
             label_align = algns, table_align = "center", data = dat)
  
  res <- create_table_pdf(rpt, tbl, pi, "below", FALSE, 0, spwidths = spwidths, 
                          styles = list())
  res
  
  # Doesn't seem right.  Come back to this.
  expect_equal(length(res$pdf), 59)
  expect_equal(round(res$lines, 1), 17.5) 
  
})

test_that("get_spanning_header_pdf works as expected.", {


  fp <- ""

  dat <- mtcars[1:15, ]

  tbl <- create_table(dat, borders = "none") %>%
    spanning_header(mpg, disp, "Span 1") %>%
    spanning_header(hp, wt, "Span 2") %>%
    spanning_header(qsec, vs, "Span 3") %>%
    spanning_header(drat, gear, "Super span", level = 2)


  rpt <- create_report(fp, output_type = "PDF", font = "Arial",
                       font_size = 10, orientation = "landscape") %>%
    set_margins(top = 1, bottom = 1) %>%
    page_header("Left", c("Right1", "Right2", "Right3"), blank_row = "below") %>%
    titles("Table 1.0", "My Nice Table") %>%
    add_content(tbl) %>%
    footnotes("My footnote 1", "My footnote 2") %>%
    page_footer("Left1", "Center1", "Right1")

  rpt <- page_setup_pdf(rpt)

  cols <- rep(.6, ncol(dat))
  names(cols) <- names(dat)

  pi <- list(keys = names(dat), col_width = cols, table_align = "center")

  res <- get_spanning_header_pdf(rpt, tbl, pi)
  res

  expect_equal(length(res$pdf), 8)
  expect_equal(res$lines, 3)

})


test_that("get_page_footnotes_pdf works as expected.", {
  
  
  tbl1 <- create_table(iris)
  
  rpt1 <- create_report("", font = "Courier") %>%
    titles("IRIS Data Frame") %>%
    add_content(tbl1) %>% 
    footnotes("Here is a footnote", valign = "top")
  
  rpt1 <- page_setup_pdf(rpt1)
  
  res1 <- get_page_footnotes_pdf(rpt1, tbl1, 6,
                                 0, 25, TRUE, "below", "center")
  res1
  expect_equal(res1$lines, 3)
  
  tbl2 <- create_table(iris)
  
  rpt2 <- create_report("", font = "Arial") %>%
    titles("IRIS Data Frame") %>%
    add_content(tbl1) %>% 
    footnotes("Here is a footnote", valign = "bottom")
  
  rpt2 <- page_setup_pdf(rpt2)
  
  res2 <- get_page_footnotes_pdf(rpt2, tbl2, 6,
                                 0, 25, TRUE, "none", "center")  
  res2
  expect_equal(res2$lines, 0)
  
  
  tbl3 <- create_table(iris)  %>% 
    footnotes("Here is a footnote", valign = "bottom", blank_row = "none")
  
  rpt3 <- create_report("", font = "Times") %>%
    titles("IRIS Data Frame") %>%
    add_content(tbl1)
  
  rpt3 <- page_setup_pdf(rpt3)

  
  res3 <- get_page_footnotes_pdf(rpt3, tbl3, 6,
                                 0, 25, TRUE, "none", "center")  
  res3  
  expect_equal(res3$lines, 1)
  
  tbl4 <- create_table(iris)  %>% 
    footnotes("Here is a footnote", valign = "top")
  
  rpt4 <- create_report("", font = "Times") %>%
    titles("IRIS Data Frame") %>%
    add_content(tbl1)
  
  rpt4 <- page_setup_pdf(rpt4)
  
  res4 <- get_page_footnotes_pdf(rpt4, tbl4, 26,
                                 0, 25, TRUE, "below", "center")  
  res4
  
  expect_equal(res4$lines, 3)
  
})