<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=windows-1252">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Caros Listeiros,<br>
<br>
Desenvolvi uma função que extrai dentre várias informações de
uma tabela, a menor e a maior data, meu problema é que mesmo
especificando a data como as.Date(), ela fica numérica após a
execução da função, alguém poderia me dar uma luz?<br>
<br>
Segue CRM:<br>
<br>
<br>
<div class="gmail_default"><font face="monospace, monospace">##
Função para leitura da tabela HTML </font></div>
<div class="gmail_default"><font face="monospace, monospace">readFE
<- function(url0){</font></div>
<div class="gmail_default"><font face="monospace, monospace">
require(RCurl); require(XML)</font></div>
<div class="gmail_default"><font face="monospace, monospace">
url1 <- gsub("(^.*)(/s/.*)(\\?.*$)", "<a
href="https://dl.dropboxusercontent.com"><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">
page <- getURL(url1)</font></div>
<div class="gmail_default"><font face="monospace, monospace"> </font><span
style="color:rgb(0,0,0);font-family:monospace,monospace;font-size:13.44px">#
page <- getURL(url1, ssl.verifypeer = FALSE) ### </span><font
color="#000000" face="monospace, monospace"><span
style="font-size:13.44px">SSL certificate problem</span></font></div>
<div class="gmail_default"><span
style="font-family:monospace,monospace"> classes <-
c(rep("factor", 6), rep("numeric", 4), "factor")</span><br>
</div>
<div class="gmail_default"><font face="monospace, monospace">
return(readHTMLTable(page, head=T, colClasses=classes)[[1]])</font></div>
<div class="gmail_default"><font face="monospace, monospace">}</font></div>
<div class="gmail_default"><font face="monospace, monospace"><br>
</font></div>
<div class="gmail_default"><font face="monospace, monospace">tableFE<-
readFE("<a
href="https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1"><a class="moz-txt-link-freetext" href="https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1">https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1</a></a>")</font></div>
<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>
minT<-min(as.Date(db[,11]))<br>
maxT<-max(as.Date(db[,11]))<br>
results <- x<br>
x<-cbind(as.Date(minT),as.Date(maxT))<br>
colnames(x)<-c("Ínicio","Fim")<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>
<br>
<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>
</body>
</html>