разделить столбцы в списке фреймов данных в R

Question

У меня есть список фреймов данных, в некоторых столбцах которых есть этот специальный символ -> (стрелка). Теперь я хочу просмотреть этот список фреймов данных и найти столбцы с этой -> (стрелка), тогда новые столбцы будут иметь имена с суффиксом _old и _new. Это пример фреймов данных:

dput(df1)
df1 <- structure(list(v1 = c("reg->joy", "ress", "mer->dls"),
                      t2 = c("James","Jane", "Egg")),
                 class = "data.frame", row.names = c(NA,  -3L))

dput(df2)
df2 <- structure(list(v1 = c("me", "df", "kl"),
                      t2 = c("James","Jane->dlt", "Egg"),
                      t3 = c("James ->may","Jane", "Egg")),
                 class = "data.frame", row.names = c(NA,  -3L))
dput(df3)
df3 <- structure(list(v1 = c("56->34", "df23-> ", "mkl"),
                      t2 = c("James","Jane", "Egg"),
                      d3 = c("James->","Jane", "Egg")),
                 class = "data.frame", row.names = c(NA,  -3L))

Это то, что я пробовал

dfs <- list(df1,df2,df3)

for (y in 1:length(dfs)){
  setDT(dfs[[y]])
  df1<- lapply(names(dfs[[y]]), function(x) {
    mDT <- df2[[y]][, tstrsplit(get(x), " *-> *")]
    if (ncol(mDT) == 2L) setnames(mDT, paste0(x, c("_old", "_new")))
  }) %>% as.data.table()

}

Это разбивает только один фрейм данных, мне нужно разделить все фреймы данных

ОЖИДАЕМЫЙ ВЫХОД

dput(df1)
df1 <- structure(list(v1_old = c("reg", "mer"),
                      v1_new = c("joy", "dls")),
                 class = "data.frame", row.names = c(NA,  -3L))

dput(df2)
df2 <- structure(list(t2_old = c("dlt"),
                      t2_new = c("dlt"),
                      t3_old = c("James"),
                      t3_new = c("may")),
                 class = "data.frame", row.names = c(NA,  -3L))

dput(df3)
df3 <- structure(list(v1_old = c("56", "df23 "),
                      v1_new = c("34", " "),
                      d3 = c("James"),
                      d3 = c(" ")),
                 class = "data.frame", row.names = c(NA,  -3L))

Answer 1

Так что я поиграл и нашел ответ

df1 <-c()
for (y in 1:length(dfs)){
  setDT(dfs[[y]])
  df1[[y]] <- lapply(names(modifiedtbl[[y]]), function(x) {
    mDT <- dfs[[y]][, tstrsplit(get(x), " *-> *")]
    if (ncol(mDT) == 2L) setnames(mDT, paste0(x, c("_old", "_new")))
  }) %>% as.data.table()

}