tests/testthat/insertion_comment_interaction/if_else_if_else_strict-out.R

In r-lib/styler: Non-Invasive Pretty Printing of R Code

if (TRUE) NULL else if (FALSE) NULL else NULL

if (TRUE) NULL else if (FALSE) NULL else NULL # comment


if (TRUE) {
  NULL
} else if (FALSE) {
  NULL
} else { # comment
  NULL
}

# if(TRUE)NULL else if(FALSE)NULL # comment
#  else NULL

if (TRUE) {
  NULL
} else if (FALSE) { # comment
  NULL
} else {
  NULL
}

if (TRUE) {
  NULL
} else if (FALSE # comment
) {
  NULL
} else {
  NULL
}

if (TRUE) {
  NULL
} else if ( # comment
  FALSE) {
  NULL
} else {
  NULL
}

if (TRUE) {
  NULL
} else if # comment
(FALSE) {
  NULL
} else {
  NULL
}

if (TRUE) {
  NULL
} else # comment
if (FALSE) NULL else NULL

# if(TRUE)NULL # comment
#  else if(FALSE)NULL else NULL

if (TRUE) { # comment
  NULL
} else if (FALSE) NULL else NULL

if (TRUE # comment
) {
  NULL
} else if (FALSE) NULL else NULL

if ( # comment
  TRUE) {
  NULL
} else if (FALSE) NULL else NULL

if # comment
(TRUE) {
  NULL
} else if (FALSE) NULL else NULL