<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Obrigado Éder, resolveu o meu problema.<br>
<br>
Preciso começar a programar de maneira mais "limpa", valeu
pelas dicas,<br>
<br>
Abraços,<br>
<br>
<br>
Segue solução:<br>
<br>
## Função para leitura da tabela HTML <br>
readFE <- function(url0){<br>
require(RCurl); require(XML)<br>
url1 <- gsub("(^.*)(/s/.*)(\\?.*$)",
"https://dl.dropboxusercontent.com\\2", url0); url1<br>
page <- getURL(url1)<br>
# page <- getURL(url1, ssl.verifypeer = FALSE) ### SSL
certificate problem<br>
classes <- c(rep("factor", 6), rep("numeric", 4), "factor")<br>
return(readHTMLTable(page, head=T, colClasses=classes)[[1]])<br>
}<br>
<br>
tableFE<-
readFE(<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>
<br>
## Sumariza as informações do banco de dados<br>
<br>
summaryFE<-function(x, db=tableFE){<br>
<br>
## Função Identificadora da empresa<br>
enterprise<-function(x, db = tableFE) {<br>
x<-NULL<br>
results <- x<br>
x<-db[1,1]<br>
results <- x<br>
results<br>
}<br>
#--#<br>
#Exemplo<br>
ENTERP<-enterprise(db = tableFE)<br>
#<br>
<br>
## Função do período do monitoramento<br>
timeFE<-function(x, db = tableFE) {<br>
x<-NULL<br>
time<-range(as.Date(tableFE[,11]))<br>
results <- x<br>
x<-time<br>
results <- x<br>
results<br>
}<br>
#--#<br>
<br>
##Enumera o número de grupos de pragas monitorados<br>
npragsFE<-function(x){<br>
npragsFE<-unique(db[,6])<br>
}<br>
#<br>
<br>
result<-list(enterprise(x),timeFE(x),npragsFE(x))<br>
return(result)<br>
}<br>
#<br>
<br>
## Sumariza<br>
summaryFE(tableFE)<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 02/02/2016 07:36, Éder Comunello
escreveu:<br>
</div>
<blockquote
cite="mid:CABmC8gkGftu81A7pyCCArb1Bp3qzc8JXAz3Sua-+nBXmifLTtA@mail.gmail.com"
type="cite">
<div dir="ltr">
<div class="gmail_default"
style="font-family:verdana,sans-serif">Alexandre, bom dia!</div>
<div class="gmail_default"
style="font-family:verdana,sans-serif"><br>
</div>
<div class="gmail_default"><span
style="font-family:verdana,sans-serif">A conversão em
numérico decorre do uso de </span><font face="monospace,
monospace">cbind()</font><font face="verdana, sans-serif">.
Tente com </font><font face="monospace, monospace">c()</font><font
face="verdana, sans-serif"> ou </font><font
face="monospace, monospace">data.frame()</font><font
face="verdana, sans-serif">. O uso de </font><font
face="monospace, monospace">as.Date()</font><font
face="verdana, sans-serif"> não é necessário se você já
transformou os objetos.</font></div>
<div class="gmail_default"><font face="verdana, sans-serif"><br>
</font></div>
<div class="gmail_default"><font face="verdana, sans-serif">Sugiro
simplificar o código com as funções já disponíveis no R.
Talvez você pudesse utilizar algo como:</font></div>
<div class="gmail_default"><font face="monospace, monospace">table(tableFE[,6],
tableFE[,1])<br>
</font></div>
<div class="gmail_default"><font face="monospace, monospace">time
<- range(as.Date(tableFE[,11])); time; diff(time)</font><br>
</div>
<div class="gmail_extra"><br clear="all">
<div>
<div>
<div dir="ltr">
<div>
<div dir="ltr">
<div>
<div dir="ltr"><font style="font-size:small"
face="arial, helvetica, sans-serif">
<div style="font-family:'trebuchet
ms',sans-serif;display:inline"></div>
================================================<br>
Éder Comunello</font>
<div style="font-size:small"><span
style="font-family:arial,helvetica,sans-serif">PhD
Student in Agricultural Systems
Engineering (USP/Esalq)</span><br>
</div>
<div><span style="font-size:small">Brazilian
Agricultural Research Corporation (</span><font
style="font-size:small" face="arial,
helvetica, sans-serif">Embrapa)</font>
<div style="font-size:small"><font
face="arial, helvetica, sans-serif">Dourados,
MS, Brazil [</font>22 16.5'S, 54 49.0'W<span
style="font-family:arial,helvetica,sans-serif">]</span></div>
<div>
<div><br>
</div>
<div><br>
</div>
</div>
<div style="font-size:small"><br>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<br>
<div class="gmail_quote"><br>
</div>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</pre>
</blockquote>
<br>
</body>
</html>