# will produce lints
lint(
text = 'data.frame("a" = 1)',
linters = keyword_quote_linter()
)
lint(
text = "data.frame(`a` = 1)",
linters = keyword_quote_linter()
)
lint(
text = 'my_list$"key"',
linters = keyword_quote_linter()
)
lint(
text = 's4obj@"key"',
linters = keyword_quote_linter()
)
# okay
lint(
text = "data.frame(`a b` = 1)",
linters = keyword_quote_linter()
)
lint(
text = "my_list$`a b`",
linters = keyword_quote_linter()
)
Run the code above in your browser using DataLab