## Interactive Tester

## Configure Editor

## 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)
            x = 1

18.     else if (foo)
            x = 1

19.     else
            x = 1

20.     if (foo &&

21.     while (foo &&

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

23.     if (foo())
          bar
        else NULL

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

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

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

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

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

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

30.       if (x) {

31.       if (foo(

32.       if (foo(
                bar),

33.       while (foo())
            NULL

34.       while (foo())
          {

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

36.       repeat
            foo()

37.     function() {
          repeat

38.     function() {
          repeat {

39.     5 *

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

41.     else
          5 +

42.     if (foo())
          5 +

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

44.     verylongfunction(a=1,
          b=2,

45.     verylongfunction(a=1,
          b=2 + 3 +
            4,

46.     verylongfunction(a=1,
          b="Multi line
        strings are evil"

47.     verylongfunction(a=1,
          "Single line strings are OK"

48.     verylongfunction(a=1,

49.     verylongfunction("Multi
        line strings are evil"

50.     verylongfunction(x=1

51.     verylongfunction(x=1
           # I'm about to document an arg

52.     x <- 1
          y <- 2

53.     x[1,
          2,
          3] <- 1

54.     if (foo) {
          x <-

55.     x <-
          y <-

56.     x <-
          1 +

57.     {
          x <-

58.     {
          x <-
            1 +

59.     plot(
          x +

60.     foo(bar, function(x)
        {

61.     if (length(foo))
            x <- bar()

62.     if () {}
        foo <- foo &

63.     foo <- function()
          function() {}

64.     foo <- function(x, y)
           if (x) y else x

65.     if ()
          x$y <- 1

66.     while ()
          x[
            1, 2, 3
          ] <- 1

67.     {
          else {}
          foo$bar <- x &

68.     {
          x %in%

69.     if (foo &&
            (bar &&

70.     if ()
          x <-

71.     else
          x <-

72.         x <- 1
        y

73.     foo()
            bar()

74.     foo()
            "bar"()

75.     ()
        {

76.     (

77.     (apple

78.     x <- 1
        (apple

79.     {1}
        {
          1 +

80.     if (1)
          if (2)
            x <- 1

81.     bad <- function(x) {
          if (1)
            if (2)
              function(x)
                1

82.     bad <- function(x) {
          if (1)
            if (2)
              x <- 1 +

83.     really_long_function_name <- function(

84.     bad <- function(x) {
          if (1)
            if (2)
              x <- 1 +
                 2