Мы можем использовать функцию с grepl
для повторного использования (от base R
), обернуть с any
, чтобы возвратить одно ИСТИНА / ЛОЖЬ (если есть имя столбца с подстрокой «Данные» или нет), и это может использоваться для упомянутой цели
f1 <- function(dat, pat) any(grepl(pat, names(dat)))
f1(df1, '^Data')
f1(df2, '^Data')
или с startsWith
f1 <- function(dat, pat) any(startsWith(names(dat), pat))
f1(df1, 'Data')