/inst/tests/test-aes.r

http://github.com/hadley/ggplot2 · R · 62 lines · 50 code · 12 blank · 0 comment · 0 complexity · 38c1a42c898de0abf1f995e748276833 MD5 · raw file 

    

  1. context("Creating aesthetic mappings")
    2. 

  2. 

  3. test_that("function aes", {
    4. 

  4.   expect_equal(aes(x = mpg, y = wt),
    5. 

  5.                structure(list(x = bquote(mpg), y = bquote(wt)), class = "uneval"))
    6. 

  6.   
    7. 

  7.   expect_equal(aes(x = mpg ^ 2, y = wt / cyl),
    8. 

  8.                structure(list(x = bquote(mpg ^ 2), y = bquote(wt / cyl)), class = "uneval"))
    9. 

  9.   
    10. 

  10. })
    11. 

  11. 

  12. test_that("function aes_string", {
    13. 

  13.   expect_equal(aes_string(x = "mpg", y = "wt"),
    14. 

  14.                structure(list(x = bquote(mpg), y = bquote(wt)), class = "uneval"))
    15. 

  15.   
    16. 

  16.   expect_equal(aes_string(x = "mpg ^ 2", y = "wt / cyl"),
    17. 

  17.                structure(list(x = bquote(mpg ^ 2), y = bquote(wt / cyl)), class = "uneval"))
    18. 

  18. })
    19. 

  19. 

  20. test_that("function aes_all", {
    21. 

  21.   expect_equal(aes_all(names(mtcars)),
    22. 

  22.                structure(
    23. 

  23.                  list(
    24. 

  24.                    mpg = bquote(mpg),
    25. 

  25.                    cyl = bquote(cyl),
    26. 

  26.                    disp = bquote(disp),
    27. 

  27.                    hp = bquote(hp),
    28. 

  28.                    drat = bquote(drat),
    29. 

  29.                    wt = bquote(wt),
    30. 

  30.                    qsec = bquote(qsec),
    31. 

  31.                    vs = bquote(vs),
    32. 

  32.                    am = bquote(am),
    33. 

  33.                    gear = bquote(gear),
    34. 

  34.                    carb = bquote(carb)),
    35. 

  35.                  class = "uneval"))
    36. 

  36.   
    37. 

  37.   expect_equal(aes_all(c("x", "y", "col", "pch")),
    38. 

  38.                structure(list(x = bquote(x), y = bquote(y), colour = bquote(col), shape = bquote(pch)), class = "uneval"))
    39. 

  39. })
    40. 

  40. 

  41. test_that("function aes_auto", {
    42. 

  42.   df <- data.frame(x = 1, y = 1, colour = 1, label = 1, pch = 1)
    43. 

  43.   expect_equal(aes_auto(df),
    44. 

  44.                structure(list(colour = bquote(colour), label = bquote(label), shape = bquote(pch), x = bquote(x), y = bquote(y)), class = "uneval"))
    45. 

  45. 

  46.   expect_equal(aes_auto(names(df)),
    47. 

  47.                structure(list(colour = bquote(colour), label = bquote(label), shape = bquote(pch), x = bquote(x), y = bquote(y)), class = "uneval"))
    48. 

  48. 

  49.   df <- data.frame(xp = 1:3, y = 1:3, colour = 1:3, txt = letters[1:3], foo = 1:3)
    50. 

  50.   expect_equal(aes_auto(df, x = xp, label = txt),
    51. 

  51.                structure(list(colour = bquote(colour), y = bquote(y), x = bquote(xp), label = bquote(txt)), class = "uneval"))
    52. 

  52.   expect_equal(aes_auto(names(df), x = xp, label = txt),
    53. 

  53.                structure(list(colour = bquote(colour), y = bquote(y), x = bquote(xp), label = bquote(txt)), class = "uneval"))
    54. 

  54.   expect_equal(aes_auto(x = xp, label = txt, data = df),
    55. 

  55.                structure(list(colour = bquote(colour), y = bquote(y), x = bquote(xp), label = bquote(txt)), class = "uneval"))
    56. 

  56. 

  57.   df <- data.frame(foo = 1:3)
    58. 

  58.   expect_equal(aes_auto(df, x = xp, y = yp),
    59. 

  59.                structure(list(x = bquote(xp), y = bquote(yp)), class = "uneval"))
    60. 

  60.   expect_equal(aes_auto(df), structure(setNames(list(), character(0)), class = "uneval"))
    61. 

  61. })
    62.