Examples of R code that is not correctly formatted

bad_formatted_code.R

# Bad examples from https://style.tidyverse.org/syntax.html
x[,1]
x[ ,1]
x[ , 1]

# Bad
mean (x, na.rm = TRUE)
mean( x, na.rm = TRUE )

# Bad
if(debug){
  show(x)
}

# Bad
max_by <- function(data, var, by) {
  data |>
    group_by({{by}}) |>
    summarise(maximum = max({{var}}, na.rm = TRUE))
}

# Bad
height<-feet*12+inches
mean(x, na.rm=TRUE)


## Example from https://posit-dev.github.io/air/formatter.html
list(
foo, bar)

data |>
select(foo) |> filter(!bar)