自动删除R代码中参数之间的多余空格和/或换行符

Question

最好直接看一个带有一些模拟代码的示例。

想象一下，在对代码进行几次修改之后，我最终得到了这样的东西：

out <- map(long_variable_name1,
           ~ long_function_call(args_galore = long_variable_name2, paste("This",
                                                                         .x,
                                                                         "That"))

然后，我尝试使其更具可读性，但是只需换一行即可：

out <- map(long_variable_name1,
       ~ long_function_call(args_galore = long_variable_name2, 
                            paste("This",
                                                                     .x,
                                                                     "That"))

RStudio Ctrl + Shift + A对此进行管理：

out <- map(long_variable_name1,
       ~ long_function_call(args_galore = long_variable_name2,
                            paste("This",
                                  .x,
                                  "That"))

formatR，至少通过上述示例中的formatR::tidy_app()，要么引发错误，要么根本不起作用。

是否存在任何会产生以下结果的工具，最好通过键盘快捷键：

out <- map(long_variable_name1,
       ~ long_function_call(args_galore = long_variable_name2,
                            paste("This", .x, "That"))

This thread悬而未决，但提出了类似的观点，即（太多）矢量元素或参数放在单独的行中不是最易读的选择。

欢迎任何提示！