#===============================================================================
#. Título: Leitura e gravação de dados no R
#. Curso : CET076
# Autor : José Cláudio Faria/UESC/DCET
# Data  : 2024-09-24 17:49:33
# Objetivos:
#===============================================================================
# - Apresentar os recursos básicos para leitura e gravação de dados
#===============================================================================

#.. Dados na WEB
w_mi <- 'https://lec.pro.br/download/R/dados/milsa.txt'
w_ms <- 'https://lec.pro.br/download/R/dados/msfinal.csv'
w_se <- 'https://lec.pro.br/download/R/dados/semente.csv'
w_tg <- 'https://lec.pro.br/download/R/dados/tg.csv'

#.. Dados no computador
l_mi <- './dados/milsa.txt'
l_mi <- '.\\dados\\milsa.txt'
l_ms <- './dados/msfinal.csv'
l_pe <- './dados/peridon.txt'
l_se <- './dados/semente.csv'
l_tg <- './dados/tg.csv'

#.. Path relativa: '.', '..', '/'
# .  - dir atual
# .. - sob um nível no dir atual
# /  - vai para pasta (slash)
# \\ - vai para pasta (backslash)

#. Leitura de dados
mi <- read.table(w_mi,
                 head=T,
                 dec=',')  # observar que não foi definido o caracter usado para dado não diponível

mi_c <- read.table(w_mi,
                   head=T,
                   dec=',',
                   na.strings='.')  # agora está OK

ms <- read.table(w_ms,
                 dec=',',
                 sep=';')  # observar que faltou informar que a primeira linha do arquivo é o nome das variáveis

ms_c1 <- read.table(w_ms,
                    head=T,
                    dec=',',
                    sep=';')  # agora está OK

ms_c2 <- read.table(w_ms,
                    head=T,
                    dec=',',
                    sep=';',
                    stringsAsFactors=TRUE)  # Leitura correta para análise de variância

ms_c2 <- read.table(w_ms,
                    head=T,
                    dec=',',
                    sep=';',
                    as.is=FALSE)  # as.is

ls_c1 <- read.table(w_se,
                    head=T,
                    dec=',',
                    sep=';')  # um arquivo um pouco maior

ls_c2 <- read.table(w_se,
                    head=T,
                    dec=',',
                    sep=';',
                    stringsAsFactors=TRUE)  # Leitura correta para análise de variância

tg <- read.table(w_tg,
                 head=T,
                 dec=',')  # exemplo com um número maior de variáveis

# o objeto anterior 'bm' vai ser eliminado e será criado outro
mi <- read.table(l_mi,
                 head=T,
                 dec=',',
                 na.strings='.')

ls()
str(mi)
summary(mi)
plot(mi)

#. Gravação de dados local
# É necessário ajustar a localização dos arquivos para o computador do usuário
# Os arquivos texto estão disponíveis no LEC

# Lendo um conjunto de dados num URL
dad <- read.table('https://lec.pro.br/download/R/dados/peridon.txt',
                  h=T,
                  stringsAsFactors=T)

# Lendo um conjunto de dados local no meu computador
#dad <- read.table('./dados/peridon.txt',
#                  h=T,
#                  stringsAsFactors=T)

str(dad)
head(dad)

#... Pasta temporária: tmp
# Verificando a existênciade uma pasta
dir.exists('./tmp')

# Se já existe remover recursivamente
unlink('./tmp',
       rec=TRUE)

# Criar pasta para gravação de dados
dir.create('./tmp')
dir.exists('./tmp')

setwd('./tmp')

write.table(dad,
            'peridon.txt')

# BOD do pacote datasets
write.table(BOD,
            'BOD.txt')

# iris do pacote datasets
data(iris)
iris[1,1] <- 999

write.table(iris,
            './iris_alt.txt')


#. Salvar conteúdo de análises
getwd()              # Verificando onde está o dir. de trabalho (workdir)
dir()

sink('./teste.txt')  # O canal stdOUT é desviado para a conexão 'analise.txt'
  summary(iris)

  library(fdth)

  tb <- fdt(iris)

  summary(tb)
sink()               # O canal stdOUT retorna para o console do R

summary(iris)

#. Salvar e recarregar o espacço de trabalho
#.. Salvando (save.image)
save.image('./R_workspace/exemplo.RData')

#.. Recarregando (load)
load('./R_workspace/exemplo.RData')