Issue with indentation when formatting functions in list

[ColinFay]

Given the following code:

xyz <- R6::R6Class(
  "xyz",
  public = list(
    initialize = function(
        aaa = "xyz", 
        bbb = "abcd"
    ) {
      print("hey")
    }
  )
)

It gets formatted as :

xyz <- R6::R6Class(
  "xyz",
  public = list(
    initialize = function(
  aaa = "xyz", # <- there should be 6 spaces here
  bbb = "abcd" # <- there should be 6 spaces here
    ) {
      print("hey")
    }
  )
)

Smaller reprex is

xyz <- list(
    a = function(
        a = 12, 
        b = 12
    ){
        print(a)
    }
)

which gets formatted :

xyz <- list(
  a = function(
  a = 12,
  b = 12
  ) {
    print(a)
  }
)

[gadenbuie]

@ColinFay thanks for the report! Are you also struggling with RStudio adding 4 spaces instead of 2 for function arguments on a new line? I just opened an issue for that here: rstudio/rstudio#10752