R: Why can't I delete rows with NA elements in the dataframe?

I am trying to delete rows with NA elements in a dataframe by doing the following:

cleaned_data <- data[complete.cases(data),]

      

        
        
        
      

    

However, I am still getting the same data frame without deleting the row. I am running version 3.2.1 R for OS X 10.10.3. Here's the data:

> dput(data)
structure(list(`1` = structure(c(1L, 1L, 6L, 3L, 3L), .Label = c("1", 
"2", "3", "4", "5", "NA"), class = "factor"), `2` = structure(c(5L, 
5L, 7L, 2L, 2L), .Label = c("1", "2", "3", "4", "5", "6", "NA"
), class = "factor"), `3` = structure(c(34L, 46L, 66L, 51L, 28L
), .Label = c("0", "1", "10", "100", "105", "11", "110", "112", 
"12", "120", "14", "15", "16", "168", "18", "2", "20", "200", 
"21", "22", "24", "25", "26", "27", "28", "29", "3", "30", "31", 
"32", "35", "36", "4", "40", "41", "42", "42099", "42131", "42134", 
"42197", "42292", "45", "48", "49", "5", "50", "54", "55", "56", 
"6", "60", "64", "65", "7", "70", "72", "75", "77", "8", "80", 
"82", "84", "85", "9", "90", "NA"), class = "factor"), `4` = structure(c(1L, 
2L, 1L, 2L, 1L), .Label = c("0", "1", "NA"), class = "factor"), 
    `5` = structure(c(1L, 1L, 1L, 1L, 1L), .Label = c("0", "1", 
    "NA"), class = "factor"), `6` = structure(c(1L, 2L, 1L, 1L, 
    1L), .Label = c("0", "1", "NA"), class = "factor"), `7` = structure(c(2L, 
    2L, 1L, 1L, 1L), .Label = c("0", "1", "NA"), class = "factor"), 
    `8` = structure(c(1L, 1L, 1L, 1L, 1L), .Label = c("0", "1", 
    "NA"), class = "factor"), `9` = structure(c(1L, 1L, 1L, 1L, 
    2L), .Label = c("0", "1", "NA"), class = "factor")), .Names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9"), row.names = c(NA, 5L
), class = "data.frame")