xref: /dports/math/ess/ess-18.10.2/test/styles/misc1.R

### Function declarations

## 1
{
   fun <- function(argument1,
               argument2) {
             body
          }
}

## 2
{
   function(
            argument1,
            argument2
            )
   {
      body
   }
}

## 3
function(argument_fun(sub_argument1,
              sub_argument2),
     argument) {}

## 4
function(argument1, parameter = fun_call(
                                         sub_argument),
     argument2) {}

## 5
function()

   function() body

## 6a
object <- function()
          {
             body
          }

## 6b
object <-
   function()
   {
      body
   }

## 6c
object =
   function()
   {
      body
   }

## 6d
fun_call(argument) <-
   function()
   {
      body
   }

## 7
{
   object <- function()
             {
                body
             }
}

## 8
{
   fun_call(parameter = function()
                        {
                           body
                        })
}

## 9
{
   fun_call(parameter = function() {
                           body
                        })
}

## 10
fun_call(
         function() {
            stuff
         }
         )

## 11
{
   fun_call1(fun_call2(argument, function() {
                                    stuff
                                 })
   )
}

## 12
{
   fun_call1(argument, fun_call2(function() {
                                    stuff
                                 })
   )
}

## 13
fun_call(object :=
            function()
            {
               body
            })

## 14
fun_call(argument,
     function(x)
        stuff
)

## 15a
`object` <- function()
            {
               body
            }

## 15b
"object" <- function()
            {
               body
            }

## 15c
'object' <- function()
            {
               body
            }


### Function calls

## 1
fun_call(argument1,
     argument2)

## 2
fun_call(
         argument1,
         argument2
         )

## 3
fun_call(parameter = (
            stuff
         ),
     argument)

## 4
fun_call(parameter = fun_argument(
                                  argument1
                                  ),
     argument2)

## 5
fun_call(parameter = fun_argument(argument1,
                          argument2
                     )
    ,
     argument3)

## 6
`fun_call`(argument1,
     argument2)

## 6b
`:=`(argument1,
     argument2)

## 7
`fun_call`(
           argument1,
           argument2
           )

## 7b
`:=`(
     argument1,
     argument2
     )

## 8
fun_call(argument1
   , argument2
   , argument3,
     argument4, (
        stuff1
     ),
     argument5, (
        stuff2
     )
    ,
     argument6
)

## 9
fun_call(parameter =
            fun_argument(
                         sub_argument
                         ),
     argument
)

## 10
fun_call(parameter = fun_argument(
                                  sub_argument
                                  ),
     argument
)

## 11
{
   fun_call1(
             fun_call2 (argument1, argument2,
                  parameter = fun_call3(
                                        argument3,
                                        argument4
                                        ), function(x) {
                                              body
                                           },
                  argument5,
                  fun_call4(
                            argument6
                            ),
                  argument7
             ), {
                stuff
             },
             argument8
             )
}

## 12
object <- fun_call(
                   arg1,
                   arg2
                   )

## 13
fun_call1(fun_call2(
                    argument
                    ))

## 14
some_function <- fun_call1(fun_call2(
                                     argument
                                     ))

## 15
object[, fun_call(
                  argument
                  )]

## 16
fun_call1(argument1, fun_call2(fun_call3(
                                         argument2
                                         ))
)

## 17
fun_call({
            stuff1
            stuff2

            stuff3
         })

## 18
fun_call(argument1 %>%
            stuff,
     argument2)

## 19
fun_call(argument,
     )

## 20
fun_call(parameter1 = ,
     parameter2 = argument)


### Blocks

## 1
{
   function()
   {
      body
   }
}

## 2
{
   fun_call({
               stuff1
            },
            {
               stuff2
            }
   )
}

## 3
fun_call({
            stuff1
         }, {
            stuff2
         })

## 4
fun_call(
         parameter1 = {
            stuff1
         },
         parameter2 = {
            stuff2
         }
         )

## 5
fun_call(parameter1 = {
            stuff1
         },
         {
            stuff2
         }, parameter2 = {
            stuff3
         }, {
            stuff4
         },
     parameter3 =
        stuff5 ~
           stuff6 +
              stuff7,
     argument)

## 6
fun <- fun_call({
                   stuff1
                }, {
                   stuff2
                },
                {
                   stuff3
                }
       )

## 7
fun <- fun_call({
                   stuff
                },
            argument
       )

## 8
fun_call(function(x) {
            body1
         },
     function(x) {
        body2
     })

## 9
fun_call(
         {
            stuff
         }, {
            stuff
         }
         )

## 10
object <-
   fun_call({
               stuff
            }, {
               stuff
            })

## 11
object <-
   fun_call(     {
               body
            }
   )

## 12
fun_call1(
          fun_call2({
                       stuff
                    }
          )
          )

## 13
{
   stuff1

   {
      stuff2
   }
}

## 14
{{
   stuff
}
}

## 15
({
   stuff
})

## 16
( {
   stuff
}
)

## 17
fun_call(argument, function(argument1,
                        argument2) {
                      body
                   }
)

## 18
fun_call(
         argument,
         function(argument1,
              argument2) {
            body
         }
         )

## 19
fun_call1(
          fun_call2(argument, function(x) {
                                 body
                              })
          )

## 20
fun_call1({
             object1 <- fun_call2(
                                  argument)
             object2
          })

## 21
fun_call(argument,
     function() {

        stuff
     }
     }

## 22
function_call()
stuff


### Bracket indexing

## 1
object[
       argument1,
       argument2
       ]

## 2
object[argument1,
     argument2
]

## 3
object[(
          argument1
       )]

## 4
{
   object[
          fun_call(
                   body
                   ),
          argument[
                   (
                      sub_argument
                   )
                   ]
          ]
}

## 5
{
   object[
          argument1,
          argument2,
          by = argument3
          ][
            argument4,
            fun_call1(argument1,
                 argument2)
            argument5
            ][
              argument6,
              fun_call2(
                        argument1,
                        argument2
                        )
              ]
}


### Control flow

## 1
{
   if (condition) {
      stuff1
   } else {
      stuff2
   }
}

## 2
{
   if (condition) {
      stuff1
   }
   else {
      stuff2
   }
}

## 3
{
   if (condition)
   {
      stuff1
   } else
   {
      stuff2
   }
}

## 4
{
   if (condition)
   {
      stuff1
   }
   else
   {
      stuff2
   }
}

## 5
{
   for (sequence)
   {
      stuff
   }
}

## 6
{
   for (sequence) {
      stuff
   }
}

## 7
if (condition)
   stuff

## 8
for (sequence)
   stuff

## 9
object <-
   if (condition) {
      stuff1
   } else {
      stuff2
   }

## 10
{
   object <-
      if (condition) stuff1
   else stuff2
}

## 10
{
   object <-
      if (condition) fun_call(
                              argument1,
                              argument2
                              )
   else stuff
}

## 11
{
   fun_call(parameter =
               if (condition)
               stuff1
        else
           stuff2
   )
}

## 12
{
   if (condition1) {
      stuff1
   }
   else if (condition2)
      stuff2
   else if (condition3) {
      stuff3
   } else if (condition4)
      stuff4
   else
      stuff5
}

## 13
fun_call(
         argument,
         parameter = if (condition1) {
            stuff1
         } else if (condition2) {
            stuff3
         } else {
            stuff2
         }
         )

## 14
fun_call(
         argument,
         parameter =
            if (condition1)
            stuff1
         else if (condition2)
            stuff3
         else
            stuff2
         )

## 15
object <- fun_call(argument,
               parameter = if (condition1) {
                  stuff1
               } else if (condition2) {
                  stuff3
               } else {
                  stuff2
               }
          )

## 16
object <- fun_call(argument, if (condition)
                      stuff1
               else if (condition2)
                  stuff2
          )

## 17
while(condition)
   stuff

## 18
if (condition1)
   stuff1
else
   if (condition2) {
      stuff2
   }

## 19
object <-
   if (condition)
      fun_call()[index]
else
   stuff

## 20
funcall({
           if (test1)
              stuff1
           if (test2)
              stuff2
        })

## 21
fun_call(argument,
     function() {

        if (cond) object1 <- object2
        else object3 <- object4
     })

## 22
if (cond1)
   if (cond2)
      if (cond3)
         stuff1
else if (cond4)
   stuff2
else
   if (cond5)
      stuff3
else
   stuff4
else if (cond6)
   stuff5
else
   if (cond7)
      stuff6
else
   stuff7
else if (cond8)
   stuff8
else
   if (cond9)
      stuff9
else
   stuff10

## 23
if (cond1)
   if (cond2)
      for (sequence1)
         if (cond3)
            stuff1
else
   stuff2
else if (cond4)
   for (sequence2)
      stuff3
else
   if (cond5)
      fun_call(
               argument
               )
else
   stuff5
else
   stuff6

## 24
object <- if(cond)
             stuff1
else
   stuff2

## 25
if (condition) {
   (stuff)
}

## 26
{
   if (condition1)
      stuff1
   else if (condition2) {
      stuff2
   }
   else if (condition3)
      stuff3
}

## 27
object <- if (condition) {
   stuff1
}
else {
   stuff2
}

## 28
if (condition)
   object <-
      stuff

## 29
if (condition1)
   object <-
      if (condition2)
         stuff1
else
   stuff2
else
   stuff3


### Continuation lines

## 1
stuff1 %>%
   stuff2 %>%
      stuff3

## 2
{
   stuff1 %>%
      stuff2 %>%
         stuff3
} %>%
   stuff4 %>%
      stuff5

## 3
(
   stuff1 %>%
      stuff2 %>%
         stuff3
) %>%
   stuff4 %>%
      stuff5

## 4
object[
       stuff1 %>%
          stuff2 %>%
             stuff3
       ] %>%
   stuff4 %>%
      stuff5

## 5
stuff1 %>%
   stuff2 %>%
      if (condition) {
         stuff3 %>%
            stuff4 %>%
               stuff5
      } else {
         stuff6 %>%
            stuff7 %>%
               stuff8
      } %>%
         stuff9 %>%
            stuff10

## 6
stuff[stuff1 %>%
         stuff2 %>%
            stuff3] %>%
   stuff4 %>%
      stuff5

## 7
ggplot() +
   geom(lhs -
           rhs
   ) +
      geom()

## 8
{
   ggplot() +
      geom1(argument1,
           argument2 = (
              stuff1
           ) -
              stuff2) +
         geom2() +
            geom3()
}

## 9
stuff +
   fun_call(parameter = argument1,
        fun_call((stuff1 - stuff2 +
                     stuff3
                 ) /
                    stuff4)
   ) /
      stuff5

fun_call(arg1 +
            arg2, arg3 +
                     arg4)

## 10
fun_call(argument1 %>%
            stuff1, argument2 %>%
                       stuff2, {
            stuff3 %>%
               stuff4
         } %>%
            stuff5,
     argument3
)

## 11
object1 <- object2 %>%
   fun_call1() %>%
      fun_call2()

## 12
object1 <-
   object2%>%fun_call1() %>%
      fun_call2()%>%
         fun_call3()

## 13
{
   (stuff) %>%
      fun_call()

   {stuff} %>%
      fun_call()
}

## 14
{
   object + (
      stuff
   ) %>%
      fun_call()

   object + {
      stuff
   } %>%
      fun_call()
}

## 15
object <-
   stuff1 +
      stuff2 ~
         stuff3 +
            stuff4 :=
               stuff5 +
                  stuff6 =
                     stuff7 +
                        stuff8

## 16
object <- stuff1 +
   stuff2 + stuff3 +
      stuff4 ~ stuff5 +
         stuff6 + stuff7 +
            stuff8 := stuff9 +
               stuff10 + stuff11 +
                  stuff12 = stuff13 +
                     stuff14 + stuff15 +
                        stuff16

## 17
object %>%
   {
      stuff1
   } %>% object[index] %>% {stuff2} %>% fun_call1() +
      {if (condition1) stuff3 else stuff4} +
         if (condition2) {
            stuff5
         } else if (condition3) {
            stuff6
         } else {
            stuff7
         } %>%
            (fun_call2()) %>% fun_call3() %>%
               fun_call3()

## 18
`object`$`elem` <- stuff1 +
   stuff2
`object`@`elem` <- stuff1 +
   stuff2

## 19
{
   ## comment
   object1 <-
      object2
}

## 20
fun_call(stuff1 + stuff2 +
            stuff3 +
               (stuff4 + stuff5 +
                   stuff6) +
                  object[stuff7 +
                            stuff8] +
                     {stuff9 +
                         stuff10})


## 21
object %>% fun_call({
                       stuff1
                    }) %>%
              stuff2

## 22
"string1" %>%
   'string2' %>%
      `stuff1` %>%
         stuff2

## 23
object[index] %>%
   fun_call1(
             argument1
             )[index2] %>%
      fun_call2(
                argument2
                )[[index3]] %>%
         stuff

## 24
fun_call(argument) <-
   hop

## 25
fun_call1(argument, fun_call2(
                              stuff1
                              ) +
                       stuff2)

## 26
object <-
   {
      stuff1
   } %>%
      (
         stuff2
      )

## 27
fun_call1(fun_call2(fun_call3(
                              argument
                              ))) %>%
   fun_call2()

## 28
fun_call(argument1 %>%
            stuff,
     argument2)

## 29
fun_call(stuff1 :=
            (stuff2),
     argument)

## 30
fun_call1(fun_call2(
                    fun_call3()) %>%
             stuff)

## 31
fun_call(object1 + object2 ~ object3 +
            object4 + object5 := object6 +
               object7,
     argument)

## 32
fun_call(object ~
            )

## 33
fun_call(object +
            )

## 34
fun_call(object[index1]$element[index2][index3]@attribute +
            stuff)

## 35a
fun_call(argument <-
            object)

## 35b
fun_call(argument <<-
            object)

## 36
funcall(!stuff1 ||
           stuff2)


### Comments

## 1
                                        # Side comment

## 2
{
   ## Hanging comment 1
   fun_call(
            {
               ## Hanging comment 2
            }
            )
}

## 3
{
### Section comment
}

## 4
fun_call(
         ## Comment
         argument
         )

## 5
object %>%
   ## comment,
   ## comment
   stuff

## 6a
object <-
   function()
   {
      stuff
      ## comment
   }

## 6b
object <-
   function()
   {
      ## comment
   }

## 7
{
   fun_call(lhs +
### Comment
               rhs
   )
}

## 8
"#" + # comment
   NULL

## 9
"* #"
x


### Logical operators

## 1
stuff1 &&
   stuff2 ||
      stuff3

## 2
(stuff1 &&
    stuff2 ||
       stuff3)

## 3
if (condition1 &&
       condition2 ||
          (condition3 && condition4) ||
             (condition5 &&
                 condition6 &&
                    condition7) ||
                condition8) {
   stuff
} && condition8 ||
   condition9 ||
      condition10

## 4
stuff1 == stuff2 ||
   condition

## 5
(stuff1 == stuff2 ||
    condition
)

## 6
(stuff1 != stuff2 ||
    condition
)

## 7
object <-
   condition1 | condition2 |
      condition3 | condition4

## 8
if (condition1 || object1 %op% object2 ||
       condition3) {
   stuff
}

## 9
any(condition1 |
       condition2) &&
   all(condition3 &
          condition4)


### Specific situations and overrides

## 1
fun_call(
         ifelse(condition1, argument1,
         ifelse(condition2, argument2,
              ifelse))
         )