<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Obrigado Paulo,<br>
<br>
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:<br>
<br>
### <code r><br>
require(RCurl); require(XML)<br>
<br>
## Função de leitura da tabela<br>
readFE<- function (x, URL = ""){<br>
x<-NULL<br>
url0 <- URL<br>
url1 <- gsub("(^.*)(/s/.*)(\\?.*$)",
"https://dl.dropboxusercontent.com\\2", url0); url1<br>
page <- getURL(url1)<br>
classes <- c(rep("factor", 6), rep("numeric", 4), "factor")<br>
tableFE <- readHTMLTable(page, head=T, colClasses=classes)[[1]]<br>
results<-tableFE <br>
results<-results[!apply(results,1,function(x){any(x=="(NULL)")}),]<br>
results<-subset(results,!(latitude == "0.00000000" |
longitude == "0.00000000"))<br>
results<br>
}<br>
#--#<br>
<br>
## Tentativa de leitura da tabela<br>
tableFE99<-readFE(URL=<a class="moz-txt-link-rfc2396E" href="https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1">"https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1"</a>)<br>
str(tableFE99)<br>
### </code><br>
<pre class="moz-signature" cols="72">--
======================================================================
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)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
OrcID: orcid.org/0000-0001-8232-6722
Researchgate: <a class="moz-txt-link-freetext" href="https://www.researchgate.net/profile/Alexandre_Santos10">https://www.researchgate.net/profile/Alexandre_Santos10</a>
LinkedIn: <a class="moz-txt-link-freetext" href="https://br.linkedin.com/in/alexandre-dos-santos-87961635">https://br.linkedin.com/in/alexandre-dos-santos-87961635</a>
======================================================================
</pre>
<div class="moz-cite-prefix">Em 31/01/2016 10:48, Paulo Nogueira
Starzynski escreveu:<br>
</div>
<blockquote
cite="mid:CAN=WoTNdxumOS229K0YmPsBE=QTzbp4YMy-a0ZkMJ-dFzCB+=g@mail.gmail.com"
type="cite"><span class="">### <code r><br>
require(RCurl); require(XML)<br>
<br>
</span><span class=""> ## Função de leitura da tabela<br>
readFE<- function (x, URL = ""){<br>
</span> url0 <- URL<span class=""><br>
url1 <- gsub("(^.*)(/s/.*)(\\?.*$)", "<a
moz-do-not-send="true"
href="https://dl.dropboxusercontent.com" target="_blank"><a class="moz-txt-link-freetext" href="https://dl.dropboxusercontent.com">https://dl.dropboxusercontent.com</a></a>\\2",
url0); url1<br>
page <- getURL(url1)<br>
</span><span class=""> classes <- c(rep("factor", 6),
rep("numeric", 4), "factor")<br>
tableFE <- readHTMLTable(page, head=T,
colClasses=classes)[[1]] <br>
x<-NULL<br>
results <- x<br>
results <- x<br>
results<-results[!apply(results,1,function(x){any(x=="(NULL)")}),]<br>
results<-subset(results, !(latitude == "0.00000000" |
longitude == "0.00000000"))<br>
results<br>
}<br>
#--#<br>
<br>
## Tentativa de leitura da tabela <br>
</span>
tableFE99<-readFE(URL=<a moz-do-not-send="true"
href="https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1"
target="_blank">"https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1"</a>)<br>
str(tableFE99)<br>
### </code><span class=""><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<pre cols="72">--
======================================================================
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: <a moz-do-not-send="true" href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM) <a moz-do-not-send="true" href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)
<a moz-do-not-send="true" href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a>
<a moz-do-not-send="true" href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a moz-do-not-send="true" href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/1360403201088680</a>
OrcID: <a moz-do-not-send="true" href="http://orcid.org/0000-0001-8232-6722" target="_blank">orcid.org/0000-0001-8232-6722</a>
Researchgate: <a moz-do-not-send="true" href="https://www.researchgate.net/profile/Alexandre_Santos10" target="_blank">https://www.researchgate.net/profile/Alexandre_Santos10</a>
LinkedIn: <a moz-do-not-send="true" href="https://br.linkedin.com/in/alexandre-dos-santos-87961635" target="_blank">https://br.linkedin.com/in/alexandre-dos-santos-87961635</a>
======================================================================
</pre>
</span>
<div>
<div class="h5">
<div>Em 30/01/2016 14:43, Éder Comunello escreveu:<br>
</div>
</div>
</div>
<blockquote type="cite">
<div>
<div class="h5">
<div dir="ltr">
<div class="gmail_default"
style="font-family:verdana,sans-serif">Senhores, boa
tarde!</div>
<div class="gmail_default"
style="font-family:verdana,sans-serif"><br>
</div>
<div class="gmail_default"
style="font-family:verdana,sans-serif">Na forma que
sugeri é necessário alterar o link "default" do dropbox
pra acessar diretamente o arquivo.</div>
<div class="gmail_default"
style="font-family:verdana,sans-serif"><br>
</div>
<div class="gmail_default">
<div class="gmail_default"><font face="monospace,
monospace">### <code r></font></div>
<div class="gmail_default"><font face="monospace,
monospace">require(RCurl); require(XML)</font></div>
<div class="gmail_default"><font face="monospace,
monospace">url0 <- "<a moz-do-not-send="true"
href="https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1"
target="_blank">https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1</a>"</font></div>
<div class="gmail_default"><font face="monospace,
monospace">url1 <- gsub("(^.*)(/s/.*)(\\?.*$)", "<a
moz-do-not-send="true"
href="https://dl.dropboxusercontent.com"
target="_blank"><a class="moz-txt-link-freetext" href="https://dl.dropboxusercontent.com">https://dl.dropboxusercontent.com</a></a>\\2",
url0); url1</font></div>
<div class="gmail_default"><font face="monospace,
monospace"><br>
</font></div>
<div class="gmail_default"><font face="monospace,
monospace">page <- getURL(url1)</font></div>
<div class="gmail_default"><font face="monospace,
monospace"># page <- getURL(url1, ssl.verifypeer
= FALSE)</font><br>
</div>
<div class="gmail_default"><font face="monospace,
monospace">classes <- c(rep("factor", 6),
rep("numeric", 4), "factor")</font></div>
<div class="gmail_default"><font face="monospace,
monospace">tableFE <- readHTMLTable(page, head=T,
colClasses=classes)[[1]]</font></div>
<div class="gmail_default"><font face="monospace,
monospace">str(tableFE)</font></div>
<div class="gmail_default"><font face="monospace,
monospace">### </code></font></div>
</div>
</div>
</div>
</div>
</blockquote>
</blockquote>
<br>
</body>
</html>