Interactive Tester

Automated Tests

Passed: , Failed:

1. doPlot <- function()
   

2. doPlot <- function() {
   

3.   doPlot <- function() {
   

4. doPlot <- function()
   {
   

5. plot(
   

6. plot(x,
   

7. plot(x,
        y,
   

8. plot(x,
        c(foo,
   

9. plot(x,
        c(foo,
          bar),
   

10. plot(
      x,
      c(foo,
        bar),
    

11. plot(x, c(foo, bar))
    

12. plot(
      x, c(foo, bar))
    

13. plot(x,
         c(foo, bar))
    

14.   plot(x,
           c(foo, bar))
    

15.   if (foo())
    

16.   if (foo())
        bar
      else
    

17.   if (foo())
        bar
      else
    # annoyingly placed comment
    

18. if (foo())
      bar
    else NULL
    

19.   for (i = 0;
           i < (20 * intervals);
           i += 1)
                      # annoyingly placed comment
    

20. function() {
      for (i = 0;
           i < (20 * intervals);
           i += 1)
    

21. function() {
      for (i = 0;
           i < (20 * intervals);
           i += 1) NULL
    

22. function() {
      for (i = 0;
           i < (20 * intervals);
           i += 1) ()
    

23. function() {
      for (i = 0;
           i < (20 * intervals);
           i += 1)
      {
    

24. function() {
      for (i = 0;
           i < (20 * intervals);
           i += 1) {
    

25.   if (x) {
    

26.   if (foo(
    

27.   if (foo(
            bar),
    

28.   while (foo())
        NULL
    

29.   while (foo())
      {
    

30.   # Invalid parse tree
      while (foo())
      {
        foo (()
      }
    

31.   repeat
        foo()
    

32. function() {
      repeat
    

33. function() {
      repeat {
    

34. 5 *
    

35. # One expression continued over more than two lines
    5 ~
      5 +
    

36. else
      5 +
    

37. if (foo())
      5 +
    

38. xyplot(ysim ~ xsim) +
      layer(panel.ablineq(lm(y ~ x), r.sq = TRUE, rot = TRUE,
                          at = 0.8, pos = 3), style = 1) +