Вот попытка:
Из ?fix
мы видим, что он просто берет пустую функцию, например, и позволяет вам редактировать ее. Давайте попробуем использовать это:
namer<-function(){
}
Теперь вызов fix(namer)
вызывает редактируемый код snippet
, позволяющий изменить его по мере необходимости.
Я отредактировал это как показано:
function(df,...){
newnames<-c(...)#new
names(df)<-newnames#new
}
Пробуем:
dummy_data<-data.frame(A=c("This is got from ?fix"),B=c("Really"))
names(dummy_data)<-namer(dummy_data,"Works","Really")
names(dummy_data)
[1] "Works" "Really"
Мы изменили имена (не так уж и хорошо):