You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
96 lines
2.6 KiB
96 lines
2.6 KiB
library(docxtractr)
|
|
|
|
doc <- read_docx(system.file("examples/data.docx", package="docxtractr"))
|
|
|
|
suppressMessages(x <- capture.output(print(doc)))
|
|
|
|
x <- capture.output(docx_describe_tbls(doc))
|
|
|
|
suppressMessages(expect_equal(length(docx_extract_all(doc)), 1))
|
|
|
|
expect_equal(length(docx_extract_all_tbls(doc)), 1)
|
|
|
|
expect_true(inherits(doc, "docx"))
|
|
expect_equal(docx_tbl_count(doc), 1)
|
|
expect_true(inherits(docx_extract_tbl(doc, 1), "tbl"))
|
|
|
|
complx <- read_docx(system.file("examples/complex.docx", package="docxtractr"))
|
|
expect_equal(docx_tbl_count(complx) ,5)
|
|
|
|
tmp_3 <- docx_extract_tbl(complx, 3)
|
|
tmp_4 <- docx_extract_tbl(complx, 4)
|
|
tmp_5 <- docx_extract_tbl(complx, 5)
|
|
|
|
expect_true(inherits(tmp_3, "tbl"))
|
|
expect_true(inherits(tmp_4, "tbl"))
|
|
expect_true(inherits(tmp_5, "tbl"))
|
|
|
|
expect_equal(nrow(tmp_3), 6)
|
|
expect_equal(ncol(tmp_4), 3)
|
|
expect_equal(nrow(tmp_5), 6)
|
|
|
|
tmp_6 <- assign_colnames(tmp_5, 1)
|
|
|
|
expect_equal(colnames(tmp_6), c("Aa", "Bb", "Cc"))
|
|
|
|
cmnt <- read_docx(system.file("examples/comments.docx", package="docxtractr"))
|
|
|
|
expect_equal(docx_cmnt_count(cmnt), 3)
|
|
|
|
x <- capture.output(docx_describe_cmnts(cmnt))
|
|
|
|
suppressMessages(x <- capture.output(print(cmnt)))
|
|
|
|
expect_equal(nrow(docx_extract_all_cmnts(cmnt)), 3)
|
|
|
|
real_world <- read_docx(system.file("examples/realworld.docx", package="docxtractr"))
|
|
tbls <- docx_extract_all_tbls(real_world)
|
|
expect_equal(
|
|
colnames(mcga(assign_colnames(tbls[[1]], 2))),
|
|
c("country", "birthrate", "death_rate", "population_growth_2005",
|
|
"population_growth_2050", "relative_place_in_transition", "social_factors_1",
|
|
"social_factors_2", "social_factors_3")
|
|
)
|
|
|
|
# docx-conversion ---------------------------------------------------------
|
|
|
|
if (at_home()) { # CRAN will not have LibreOffice installed
|
|
|
|
lp = try({
|
|
docxtractr:::lo_find()
|
|
}, silent = TRUE)
|
|
if (!inherits(lp, "try-error")) {
|
|
path <- system.file("examples/preserve.doc", package = "docxtractr")
|
|
doc = read_docx(path)
|
|
expect_that(doc, is_a("docx"))
|
|
}
|
|
|
|
}
|
|
|
|
# pptx conversion ---------------------------------------------------------
|
|
|
|
if (at_home()) { # CRAN will not have LibreOffice installed
|
|
|
|
lp = try({
|
|
docxtractr:::lo_find()
|
|
}, silent = TRUE)
|
|
|
|
if (!inherits(lp, "try-error")) {
|
|
path <- system.file("examples/ex.pptx", package = "docxtractr")
|
|
pdf <- convert_to_pdf(path, pdf_file = tempfile(fileext = ".pdf"))
|
|
expect_true(file.size(pdf) > 0)
|
|
}
|
|
|
|
}
|
|
|
|
if (at_home()) {
|
|
lp = try({
|
|
docxtractr:::lo_find()
|
|
}, silent = TRUE)
|
|
if (!inherits(lp, "try-error")) {
|
|
path <- system.file("examples/data.docx", package = "docxtractr")
|
|
pdf <- convert_to_pdf(path, pdf_file = tempfile(fileext = ".pdf"))
|
|
expect_true(file.size(pdf) > 0)
|
|
}
|
|
|
|
}
|
|
|