#Importação PREPS

#no servidor
# setwd('/home/gandra/preps')

rm(list=ls()) ## Removendo as variáveis
gc()
# packages<-c('ggplot2','raster','reshape','gdata','rgdal','lubridate','adehabitatHR','spatialEco', 'RPostgreSQL')

packages<-c('ggplot2','raster','reshape','gdata','rgdal','lubridate', 'RPostgreSQL','dplyr')

package.check <- lapply(packages, FUN = function(x) {
  if (!require(x, character.only = TRUE)) {
    install.packages(x, dependencies = TRUE)
    library(x, character.only = TRUE)
  }
})

# drv <- dbDriver('PostgreSQL');
# con <- dbConnect(drv,host='200.132.11.22',port=1305,dbname='preps',user='gandra',password='Sapiens_2015');
# con <- dbConnect(drv,host='localhost',port=5432,dbname='preps',user='gandra',password='Sapiens_2015');

#Embarcacoes------------------
load('embarcacoes_final.Rda')
e<-efim
# e<-e[which(e$modalidade=='Arrasto de Fundo' | e$modalidade=='Espinhel Pelágico de Superfície' | e$modalidade=='Rede de Espera' |  e$modalidade=='Cerco'),]
rm(efim)


#Filtrando as embarcações pela modalidade de pesca
emb<-unique(e$cod_embarcacao)

#Tracks----------------

#no servidor
l<-list.files(path='/home/gandra/preps/brutos',recursive = T,pattern = ".txt",full.names = T)
m<-list()
i=1

for(i in 1:length(l)){
  time<-Sys.time()
  tx  <- readLines(l[i])
  d<-gsub(pattern = ";", replace = ",", x = tx)
  df<-read.delim2(l[i], header=T,sep=',',quote="")
  #Convertendo tipos de dados
  df$nom_embarcacao<-as.character(df$nom_embarcacao)
  df$utc<-as.POSIXct(df$data_hora_us, "%Y-%m-%d %H:%M:%S" )
  df$velocidade<-as.numeric(as.character(df$velocidade))
  df$lat_dec<-as.numeric(as.character(df$lat_dec))
  df$long_dec<-as.numeric(as.character(df$long_dec))
  df$distancia<-as.numeric(as.character(df$distancia))
  df$velocidade<-as.numeric(as.character(df$velocidade))
  colnames(df)[5] <- "lat"
  colnames(df)[6] <- "lon"
  df<-df%>%select(cod_embarcacao,lat,lon,utc,velocidade,distancia)
  df<-df%>%filter(lat<=-18)
  m[[i]] <- df
  print(i)
  print(Sys.time()-time)
}

d<- as.data.frame(do.call(rbind, m))
save(d,file = 'output_data/preps_bruto_SE_S.Rda')