# test that import works
# files
file1 <- system.file("extdata/", "sumobrain_autonomous_search1.xlsx", package="patentr")
file2 <- system.file("extdata/", "sumobrain_autonomous_search2.xlsx", package="patentr")
files <- list(file1, file2)
# read it in
patData <- importPatentData(files)
# should be a data frame
expect_true(is.data.frame(patData))
# test_that("importing a data file works",{
# # files
# file1 <- system.file("inst/extdata/", "sumobrain_autonomous_search1.xlsx", package="patentr")
# file2 <- system.file("inst/extdata/", "sumobrain_autonomous_search2.xlsx", package="patentr")
# files <- list(file1, file2)
# # read it in
# patData <- importPatentData(files)
#
# # should be a data frame
# expect_true(is.data.frame(patData))
# })
# motivation
# test taken from readxl package in tidyverse and modified
# credit goes to tidyverse team
# https://github.com/tidyverse/readxl/blob/83af028bcc577d23b01c4a1f47d2dfc314497253/tests/testthat/helper.R
# NOTE: may need to cancel this test as readxl 0.1.1 still has error, only github version does not have error
# this only works on 0.1.1.9000 (current at time of writing) and above
test_that("can tolerate xls(x) that underreports number of columns",{
# tidyverse test
#df <- readxl::read_excel(rprojroot::find_testthat_root_file("testData","mtcars.xls"))
#expect_identical(ncol(df),ncol(mtcars))
# test modified
# note, test cases modified to remove dependency on 0.1.1.9000 readxl, future versions (0.1.2+)
# expected to fix this issue
df2 <- readxl::read_excel(rprojroot::find_testthat_root_file("testData","sumobrain_autonomous_search1.xlsx"), skip=1)
expect_identical(ncol(df2),ncol(acars))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.