Nothing
context("read_rfept")
test_that("read_rfept works", {
skip_on_cran()
qacademico <- read_rfept(system.file("extdata/examples/qacademico", package = "sistec"))
qacademico_2 <- read_rfept(system.file("extdata/examples/qacademico", package = "sistec"),
start = "2019.2")
check_rfept_table(qacademico, expect_nrow = 200)
expect_true(inherits(qacademico, "rfept_data_frame"))
check_rfept_table(qacademico_2, expect_nrow = 87)
sigaa <- read_rfept(system.file("extdata/examples/sigaa", package = "sistec"))
check_rfept_table(sigaa, expect_nrow = 200)
expect_true(inherits(sigaa, "rfept_data_frame"))
})
test_that("read_qacademico works", {
skip_on_cran()
qacademico <- read_qacademico(system.file("extdata/examples/qacademico", package = "sistec"))
check_rfept_table(qacademico, expect_nrow = 200)
expect_true(inherits(qacademico, "rfept_data_frame"))
})
test_that("read_sigaa works", {
skip_on_cran()
sigaa <- read_sigaa(system.file("extdata/examples/sigaa", package = "sistec"))
check_rfept_table(sigaa, expect_nrow = 200)
expect_true(inherits(sigaa, "rfept_data_frame"))
})
test_that("read_linked_courses works", {
skip_on_cran()
linked_courses<- read_linked_courses(system.file("extdata/examples/linked_courses",
package = "sistec"), "csv")
expect_equal(nrow(linked_courses), 241)
expect_equal(colnames(linked_courses),
c("INICIO", "CICLO", "CURSO_SISTEC", "CURSO_QACADEMICO", "CAMPUS"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.