[R-br] Problema com datas que se tornam numéricas

[ASANTOS]

Caros Listeiros,

      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?

Segue CRM:


## Função para leitura da tabela HTML
readFE <- function(url0){
  require(RCurl); require(XML)
  url1 <- gsub("(^.*)(/s/.*)(\\?.*$)", 
"https://dl.dropboxusercontent.com\\2", url0); url1
  page <- getURL(url1)
# page <- getURL(url1, ssl.verifypeer = FALSE) ### SSL certificate problem
      classes <- c(rep("factor", 6), rep("numeric", 4), "factor")
  return(readHTMLTable(page, head=T, colClasses=classes)[[1]])
}

tableFE<- 
readFE("https://www.dropbox.com/s/foeh9oqbiqlawvg/TALHOES_AGENTE2.htm?dl=1")

## Sumariza as informações do banco de dados

summaryFE<-function(x, db=tableFE){

## Função Identificadora da empresa
enterprise<-function(x, db = tableFE) {
      x<-NULL
      results <- x
      x<-db[1,1]
      results <- x
      results
}
#--#
#Exemplo
ENTERP<-enterprise(db = tableFE)
#

## Função do período do monitoramento
timeFE<-function(x, db = tableFE) {
      x<-NULL
      minT<-min(as.Date(db[,11]))
      maxT<-max(as.Date(db[,11]))
      results <- x
      x<-cbind(as.Date(minT),as.Date(maxT))
      colnames(x)<-c("Ínicio","Fim")
      results <- x
      results
}
#--#

##Enumera o número de grupos de pragas monitorados
npragsFE<-function(x){
npragsFE<-unique(db[,6])
}
#

result<-list(enterprise(x),timeFE(x),npragsFE(x))
return(result)
}
#

## Sumariza
summaryFE(tableFE)


-- 
======================================================================
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 em yahoo.com.br
         alexandre.santos em 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
======================================================================

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160201/963334e7/attachment.html>