boB Rudis
7 years ago
6 changed files with 33 additions and 3 deletions
@ -0,0 +1,2 @@ |
|||||
|
YEAR: 2017 |
||||
|
COPYRIGHT HOLDER: Bob Rudis |
Binary file not shown.
@ -1,6 +1,28 @@ |
|||||
context("basic functionality") |
context("basic functionality") |
||||
test_that("we can do something", { |
test_that("we can do something", { |
||||
|
|
||||
#expect_that(some_function(), is_a("data.frame")) |
tmp_x1 <- scale_x_comma() |
||||
|
tmp_x2 <- scale_x_percent() |
||||
|
|
||||
|
tmp_y1 <- scale_y_comma() |
||||
|
tmp_y2 <- scale_y_percent() |
||||
|
|
||||
|
fil <- scale_fill_ipsum() |
||||
|
col <- scale_color_ipsum() |
||||
|
|
||||
|
gg_tmp <- ggplot2::ggplot() + |
||||
|
ggplot2::labs(x="Thsi", y="This", title="This", subtitle="This", caption="Thsi") |
||||
|
|
||||
|
expect_message(gg_check(gg_tmp), "misspelled") |
||||
|
|
||||
|
expect_that(tmp_x1$expand, equals(c(0,0))) |
||||
|
expect_that(tmp_x2$expand, equals(c(0,0))) |
||||
|
expect_that(tmp_y1$expand, equals(c(0,0))) |
||||
|
expect_that(tmp_y2$expand, equals(c(0,0))) |
||||
|
|
||||
|
expect_that(ipsum_pal()(1), equals("#d18975")) |
||||
|
expect_that(col$palette(1), equals("#d18975")) |
||||
|
expect_that(fil$palette(1), equals("#d18975")) |
||||
|
|
||||
}) |
}) |
||||
|
|
||||
|
Loading…
Reference in new issue