Как удалить пробелы в файле .R с помощью Rstudio?

Question

Этот вопрос может показаться глупым. Иногда, когда я копирую код из одного файла в другой, текст вставляется следующим образом:

            Promedio_short_Pearson_Avg50_SW60$ADelay <- "300"
            Promedio_short_Pearson_Avg50_SW60$SW <- "60"
            Promedio_short_Pearson_Avg50_SW15$ADelay <- "300"
            Promedio_short_Pearson_Avg50_SW15$SW <- "15"
            Promedio_short_Pearson_Avg50_SW1$ADelay <- "300"
            Promedio_short_Pearson_Avg50_SW1$SW <- "1"

Иногда в моем .R файле много строк, поэтому мне было интересно, есть ли какие-нибудь ярлык для выбора первой позиции каждой строки сразу, чтобы удалить все пробелы. Я бы хотел получить это:

Promedio_short_Pearson_Avg50_SW60$ADelay <- "300"
Promedio_short_Pearson_Avg50_SW60$SW <- "60"
Promedio_short_Pearson_Avg50_SW15$ADelay <- "300"
Promedio_short_Pearson_Avg50_SW15$SW <- "15"
Promedio_short_Pearson_Avg50_SW1$ADelay <- "300"
Promedio_short_Pearson_Avg50_SW1$SW <- "1"

Answer 1

Вы можете использовать пакет styler, который также подключается к RStudio IDE (или работает вне ее, на ваш выбор): https://style.tidyverse.org/

cat(somecode, "\n")
#             Promedio_short_Pearson_Avg50_SW60$ADelay <- "300"
#             Promedio_short_Pearson_Avg50_SW60$SW <- "60"
#             Promedio_short_Pearson_Avg50_SW15$ADelay <- "300"
#             Promedio_short_Pearson_Avg50_SW15$SW <- "15"
#             Promedio_short_Pearson_Avg50_SW1$ADelay <- "300"
#             Promedio_short_Pearson_Avg50_SW1$SW <- "1" 

styler::style_text(somecode)
# Warning: Could not use colored = TRUE, as the package prettycode is not installed. Please install it if you want to see colored output or see `?print.vertical` for more information.
# Promedio_short_Pearson_Avg50_SW60$ADelay <- "300"
# Promedio_short_Pearson_Avg50_SW60$SW <- "60"
# Promedio_short_Pearson_Avg50_SW15$ADelay <- "300"
# Promedio_short_Pearson_Avg50_SW15$SW <- "15"
# Promedio_short_Pearson_Avg50_SW1$ADelay <- "300"
# Promedio_short_Pearson_Avg50_SW1$SW <- "1"

(Предостережение : Я не использую его, но линтинг и стилизация возникали несколько раз, я подумал, что посмотрю на него.)

В пакете есть несколько полезных функций, а не только для текстовых переменных, включая : style_file, style_dir и style_pkg.