如何重复列项来替换R中的NA？

Question

这是我的问题的一个例子：

df<-data.frame(x=c("A", NA, NA, NA, "B", NA, NA, "D", NA, NA))
df
      x
1     A
2  <NA>
3  <NA>
4  <NA>
5     B
6  <NA>
7  <NA>
8     D
9  <NA>
10 <NA>

我的问题是达到这个目标的最佳途径是什么：

df
      x
1     A
2     A
3     A
4     A
5     B
6     B
7     B
8     D
9     D
10    D

即重复列项以替换下面的NA，直到下一个不是NA。有没有容易实现的呢？