ignore mulit-line for / while condition without braces for strict = F…

…ALSE

R/indent.R

@@ -95,16 +95,7 @@ indent_without_paren_for_while_fun <- function(pd, indent_by) {
   if (is_curly_expr(pd$child[[nrow]])) {
     return(pd)
   }
-  if (pd$token[1] == "FOR") {
-    is_multi_line <- pd_is_multi_line(
-      pd$child[[which(pd$token == "forcond")]]
-    )
-  } else if (pd$token[1] %in% c("WHILE", "FUNCTION")) {
-    start <- which(pd$token == "'('")
-    end <- which(pd$token == "')'")
-    is_multi_line <- any(pd[seq2(start, end),]$multi_line)
-  }
-  if (pd$token[1] %in% tokens && !is_multi_line) {
+  if (pd$token[1] %in% tokens) {
     other_trigger_tokens <- c(
       math_token,
       logical_token,

tests/testthat/indention_operators/while_for_if_without_curly_non_strict-out.R

@@ -12,17 +12,17 @@ for (i in 1:3) #
 
 for (i in
   1:3) #
-  print(i)
+print(i)
 
 for (i in #
   1:3) #
-  print(i)
+print(i)
 
 for ( #
   i in #
   1:3 #
 ) #
-  print(i)
+print(i)
 
 
 while (x > 3) #
@@ -40,19 +40,19 @@ while (
   2 > # here
     3 #
 ) #
-  FALSE
+FALSE
 
 while (
   2 > # here
     3 #
 )
-  FALSE
+FALSE
 
 while (
   2 > # here
     3
 ) #
-  FALSE
+FALSE
 
 while ( #
   2 >

tests/testthat/indention_operators/while_for_without_curly_same_line_non_strict-in.R

@@ -0,0 +1,31 @@
+while(x == 2) h(
+  2
+)
+
+while(x == 2) h( # comment
+  2
+)
+
+while(x == 2 &&
+      2 + 2 == 2) h(
+  2
+)
+
+
+for(x in 1:22) h(
+  2
+)
+
+for(x in 1:22) h( # comment
+  2
+)
+
+for(k in f(
+  2:22
+)) h(
+        2
+      )
+
+for(k in f(
+  2:22 # comment
+)) h(2)

tests/testthat/indention_operators/while_for_without_curly_same_line_non_strict-out.R

@@ -0,0 +1,31 @@
+while (x == 2) h(
+  2
+)
+
+while (x == 2) h( # comment
+  2
+)
+
+while (x == 2 &&
+  2 + 2 == 2) h(
+  2
+)
+
+
+for (x in 1:22) h(
+  2
+)
+
+for (x in 1:22) h( # comment
+  2
+)
+
+for (k in f(
+  2:22
+)) h(
+  2
+)
+
+for (k in f(
+  2:22 # comment
+)) h(2)

tests/testthat/test-indention_operators.R

@@ -22,6 +22,9 @@ test_that("while / for / if without curly brackets", {
   expect_warning(test_collection("indention_operators",
                                  "while_for_if_without_curly_non_strict",
                                  transformer = style_text, strict = FALSE), NA)
+  expect_warning(test_collection("indention_operators",
+                                 "while_for_without_curly_same_line_non_strict",
+                                 transformer = style_text, strict = FALSE), NA)
 })
 
 test_that("function multiline without curly brackets", {