How to merge rows that contain NAs into one in r?

Question

Here is my data:

data<-structure(c(1, NA, 2, NA, NA, 9), .Dim = 2:3, .Dimnames = list(
    c("1", "2"), NULL), .Names = c("1"