XML : Remove lines with 0.0000 in specific columns with readHTMLTable()

I try to remove rows in HTML table with 0.0000 em specific columnt using readHTMLTable() function in XLM package without success. In my code:

Packages

  require(httr)  require(XML)    

Function for read HTML table

For remove 0.0000 in columns 9 and 10

  readFE<- function (x, URL = ""){  FILE <- GET(url=URL)       tables <- getNodeSet(htmlParse(FILE), "//table")        FE_tab <- readHTMLTable(tables[[1]],                           header = c("empresa","desc_projeto","desc_regiao",                                      "cadastrador_por","cod_talhao","descricao",                                      "formiga_area","qtd_destruido","latitude",                                      "longitude","data_cadastro"),                           colClasses = c("character","character","character",                                          "character","character","character",                                          "character","character","character",                                          "character","character"),                           trim = TRUE, stringsAsFactors = FALSE   )            x<-NULL       results <- x       x<-FE_tab[-(1),]       results <- x       results<-results[!apply(results,1,function(x){any(x[,9:10]==0.00000000)}),]       results  }    

-- Exemple

  tableFE<-readFE(URL="https://www.dropbox.com/s/mb316ghr4irxipr/TALHOES_AGENTES.htm?dl=1")  tableFE## Don't work!!    

Someone could help me?

Thanks,

Alexandre