Obrigado Paulo,

         Tinham inconsistências no meu código que foram corrigidos com suas dicas, porém a segunda função results<-subset(results,!(latitude == "0.00000000" | longitude == "0.00000000")) ele não roda e continua a aparecer coordenadas 0, sendo:

### <code r>
require(RCurl); require(XML)

## Função de leitura da tabela
readFE<- function (x, URL = ""){
x<-NULL
url0 <- URL
url1 <- gsub("(^.*)(/s/.*)(\\?.*$)", "https://dl.dropboxusercontent.com\\2", url0); url1
page <- getURL(url1)
classes <- c(rep("factor", 6), rep("numeric", 4), "factor")
tableFE <- readHTMLTable(page, head=T, colClasses=classes)[[1]]
     results<-tableFE
     results<-results[!apply(results,1,function(x){any(x=="(NULL)")}),]
     results<-subset(results,!(latitude == "0.00000000" | longitude == "0.00000000"))
     results
}
#--#

## Tentativa de leitura da tabela
tableFE99<-readFE(URL="https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1")
str(tableFE99)
### </code>

-- 
======================================================================
Alexandre dos Santos
Proteção Florestal 
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial 
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
e-mails:alexandresantosbr@yahoo.com.br 
        alexandre.santos@cas.ifmt.edu.br 
Lattes: http://lattes.cnpq.br/1360403201088680
OrcID: orcid.org/0000-0001-8232-6722 
Researchgate: https://www.researchgate.net/profile/Alexandre_Santos10                       
LinkedIn: https://br.linkedin.com/in/alexandre-dos-santos-87961635
======================================================================

Em 31/01/2016 10:48, Paulo Nogueira Starzynski escreveu:

### <code r>
require(RCurl); require(XML)

## Função de leitura da tabela
readFE<- function (x, URL = ""){
url0 <- URL
url1 <- gsub("(^.*)(/s/.*)(\\?.*$)", "https://dl.dropboxusercontent.com\\2", url0); url1
page <- getURL(url1)
classes <- c(rep("factor", 6), rep("numeric", 4), "factor")
tableFE <- readHTMLTable(page, head=T, colClasses=classes)[[1]]
     x<-NULL
     results <- x
     results <- x
     results<-results[!apply(results,1,function(x){any(x=="(NULL)")}),]
     results<-subset(results, !(latitude == "0.00000000" | longitude == "0.00000000"))
     results
}
#--#

## Tentativa de leitura da tabela
tableFE99<-readFE(URL="https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1")
str(tableFE99)
### </code>



-- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 OrcID: orcid.org/0000-0001-8232-6722 Researchgate: https://www.researchgate.net/profile/Alexandre_Santos10 LinkedIn: https://br.linkedin.com/in/alexandre-dos-santos-87961635 ======================================================================

Em 30/01/2016 14:43, Éder Comunello escreveu:

Senhores, boa tarde!

Na forma que sugeri é necessário alterar o link "default" do dropbox pra acessar diretamente o arquivo.

### <code r>

require(RCurl); require(XML)

url0 <- "https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1"

url1 <- gsub("(^.*)(/s/.*)(\\?.*$)", "https://dl.dropboxusercontent.com\\2", url0); url1

page <- getURL(url1)

# page <- getURL(url1, ssl.verifypeer = FALSE)

classes <- c(rep("factor", 6), rep("numeric", 4), "factor")

tableFE <- readHTMLTable(page, head=T, colClasses=classes)[[1]]

str(tableFE)

### </code>