add ']' to the whitelist

r-lib · Dec 29, 2015 · 62eadcb · 62eadcb
1 parent abda27f
commit 62eadcb
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/R/spaces_left_parentheses_linter.R b/R/spaces_left_parentheses_linter.R
@@ -15,7 +15,7 @@ spaces_left_parentheses_linter <- function(source_file) {
       last_type <- tail(terminal_tokens_before, n = 1)
 
       is_function <- length(last_type) %!=% 0L &&
-        (last_type %in% c("SYMBOL_FUNCTION_CALL", "FUNCTION", "'}'", "')'"))
+        (last_type %in% c("SYMBOL_FUNCTION_CALL", "FUNCTION", "'}'", "')'", "']'"))
 
       if (!is_function) {
 

diff --git a/tests/testthat/test-spaces_left_parentheses_linter.R b/tests/testthat/test-spaces_left_parentheses_linter.R
@@ -37,6 +37,8 @@ test_that("returns the correct linting", {
 
   expect_lint("function(){function(){}}()()", NULL, spaces_left_parentheses_linter)
 
+  expect_lint("c(function(){})[1]()", NULL, spaces_left_parentheses_linter)
+
   expect_lint("((1 + 1))",
     rex("Place a space before left parenthesis, except in a function call."),
     spaces_left_parentheses_linter)