Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
utilities [2020/02/19 11:08] f0ma |
utilities [2020/02/19 14:28] (текущий) f0ma |
||
---|---|---|---|
Строка 9: | Строка 9: | ||
for ( n in namevec ) if (!n %in% names(rtbl)) rtbl[[n]] <- 0.0; | for ( n in namevec ) if (!n %in% names(rtbl)) rtbl[[n]] <- 0.0; | ||
for ( n in names(rtbl) ) if (!n %in% namevec) rtbl[[n]] <- NULL; | for ( n in names(rtbl) ) if (!n %in% namevec) rtbl[[n]] <- NULL; | ||
- | if ((!saveNamesColumn) || ('Name' %in %namevec)){ | + | if ((!saveNamesColumn) || ('Name' %in% namevec) || (!'Name' %in% names(rtbl))){ |
return(rtbl[,namevec]); | return(rtbl[,namevec]); | ||
} else { | } else { | ||
- | return(rtbl[,c('Name',namevec)]); | + | rtbl <- rtbl[,namevec]; |
+ | rtbl <- cbind(data.frame(Name = rtbl$Name), rtbl); | ||
+ | return(rtbl); | ||
} | } | ||
} | } |