tests/testthat/test-siif_contabilidad_fct_read.R
In fscorrales/invicodatr: INVICO's Data Manipulation
test_that("reading rcocc31 returns a tibble", {
df <- system.file("extdata", "rcocc31.xls",
package = "invicodatr", mustWork = TRUE) %>%
read_siif_mayor_contable_rcocc31()
expect_s3_class(df, c("tbl_df", "tbl", "data.frame"))
expect_equal(ncol(df), 12)
})
fscorrales/invicodatr documentation built on Nov. 22, 2022, 2:39 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("reading rcocc31 returns a tibble", {
df <- system.file("extdata", "rcocc31.xls",
package = "invicodatr", mustWork = TRUE) %>%
read_siif_mayor_contable_rcocc31()
expect_s3_class(df, c("tbl_df", "tbl", "data.frame"))
expect_equal(ncol(df), 12)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.