data-raw/DATASET.R

In beneditomacedo/ptax: Disponibiliza a cotacao diaria da PTAX de 2010 a 2018

## code to prepare `DATASET` dataset goes here

# Ir para o diretorio onde esta o arquivo ptax_raw
setwd("data-raw/")

# Leitura do arquivo ptax_raw
ptax_raw <- read.csv2("ptax_raw.csv")

# Remocao de colunas nao uteis
ptax<-ptax_raw[,c(1,5,6)]

# Nomear as colunas
names(ptax) <- c("Data_Cotacao","Compra","Venda")

# Converter a primeira coluna para o tipo Date
ptax$Data_Cotacao <- dmy(ptax$Data_Cotacao)

# Add to package
usethis::use_data(ptax,overwrite = TRUE)