r - 如何在未知行位置导入具有错误标题和正确标题的文件

Question

我有一个包含标题的文件，但它们可能不在第一行（如果它们是，它们可能不是正确的标题）。我该如何处理？

df<-data.frame(a=seq(0:10))
colname(df)<-("The Wrong Header")
df[4,1]<-"TheRightHeader" #This is one concatenated string because I couldn't work out how to add spaces using this input method

要知道第一个标题是否正确，它后面的两行总是包含一个 0。真正令人讨厌的数据在这里（截至 9 月 27 日）：

https://leeds365-my.sharepoint.com/:t:/g/personal/cenmk_leeds_ac_uk/EQFIeY_U1f5MrC5B_YdqChkBrNSxQ_6vvVHZ_NR-6kNTYg?e=Jsb918

期望的输出是：

colnames(df)<-"The Right Header"

标签： r