# will produce lints
lint(
text = "switch(op , x = foo, y = bar)",
linters = commas_linter()
)
lint(
text = "mean(x,trim = 0.2,na.rm = TRUE)",
linters = commas_linter()
)
lint(
text = "x[ ,, drop=TRUE]",
linters = commas_linter()
)
lint(
text = "x[1,]",
linters = commas_linter()
)
# okay
lint(
text = "switch(op, x = foo, y = bar)",
linters = commas_linter()
)
lint(
text = "switch(op, x = , y = bar)",
linters = commas_linter()
)
lint(
text = "mean(x, trim = 0.2, na.rm = TRUE)",
linters = commas_linter()
)
lint(
text = "a[1, , 2, , 3]",
linters = commas_linter()
)
lint(
text = "x[1,]",
linters = commas_linter(allow_trailing = TRUE)
)
Run the code above in your browser using DataLab