удаление суффиксов из имен переменных внутри списка в R

Question

Используя BASE R, мне было интересно, как я могу удалить ..number суффиксы из переменных (например, short..3 становится short) в G ниже?

G <- list(AA = list(short..3 = data.frame(dint = 5:7, SD = 0:2), 
                    short..2 = NULL, 
                    del1 = data.frame(dint = 1:3, SD = 2:4), 
                    del1..2 = NULL, del2 = NULL), 
          BB = list(short = data.frame(dint = 1:4, SD = 2:5), 
                    short..2 = NULL, 
                    del1..4 = data.frame(dint = 5:6, SD = 3:4), 
                    del1..2 = NULL, 
                    del2 = data.frame(dint = 6, SD = 1)))

Answer 1

for (i in seq_along(G)) {
  names(G[[i]]) <- gsub("(.*)\\.\\.\\d*", "\\1", names(G[[i]]))
}

ИЛИ

lapply(G, function(i) setNames(i, gsub("(.*)\\.\\.\\d*", "\\1", names(i))))