使用dplyr将数据框的第1行重命名为第1行

Question

如何使用dplyr链重命名数据框的第一行的列？

library(dplyr)
df<-data.frame(a=c("b","c"),d=c("e","f"))
colnames(df)<-df[1,])           #normal renaming (1st row used to set column names)


df<-data.frame(a=c("b","c"),d=c("e","f"))
df<- df%>%rename(????)   #dplyr chain renaming