tests/testthat/test-barras.R

In abjur/abjDash: Useful tools for producing ABJ Dashboards

library(ggplot2)
library(testthat)
library(magrittr)

# Teste deve sair bem sucedido
test_that("silent when barras succeeds", {
  base <- (diamonds)
  working.plot <- base %>% dplyr::count(cut) %>%
    dplyr::mutate(prop = n/sum(n), lab = pct(prop)) %>% barras()
  expect_silent(print(working.plot))
} )