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@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
======================================================================