Nothing
context("output_screen")
test_that("compare_screen works", {
skip_on_cran()
sistec_path <- system.file("extdata/test_datasets/sistec", package = "sistec")
qacademico_path <- system.file("extdata/test_datasets/qacademico", package = "sistec")
qacademico <- read_rfept(qacademico_path)
sistec <- read_sistec(sistec_path)
comparison <- compare_sistec(sistec, qacademico)
output_screen <- sistec:::compare_screen(comparison)
expect_true(grepl("Compara\u00e7\u00e3o entre Sistec e Qacademico realizada com sucesso!", output_screen))
expect_true(grepl("Total de alunos:<br/>  - Sistec: 11099<br/>  - Qacademico: 14366", output_screen))
expect_true(grepl("Alunos sem CPF:<br/>  - Sistec: 88<br/>  - Qacademico: 6", output_screen))
expect_true(grepl("Alunos não encontrados:<br/>  - Sistec: 528<br/>  - Qacademico: 3773", output_screen))
expect_true(grepl("CPF's repetidos:<br/>  - Sistec: 0<br/>  - Qacademico: 0", output_screen))
expect_true(grepl("Vínculos repetidos:<br/>  - Sistec: 1<br/>  - Qacademico: 43", output_screen))
expect_true(grepl("Vínculos não encontrados:<br/>  - Sistec: 111<br/>  - Qacademico: 177", output_screen))
expect_true(grepl("Para inspeção manual:<br/>  - Sistec: 52<br/>  - Qacademico: 48", output_screen))
expect_true(grepl("Erro no cadastro:<br/>  - Na data de início: 54", output_screen))
expect_true(grepl("Situações comparadas:<br/>  - Atualizadas: 9466<br/>  - Desatualizadas: 799", output_screen))
})
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.