R/MyEvents.R

In maxlemes/MyPortfolio: What the Package Does (One Line, Title Case)

library(magrittr)


source("R/MyFunctions.R")

#load("data/ibr4.rda")

urls <- readr::read_csv("data-raw/ADVFN_Acoes.csv")

myStocks <- dadosBastter("Transações")

myStocks <- dplyr::left_join(myStocks,urls)

myAssets <- myStocks[myStocks$classe=="Ações", ]

myAssets <-myAssets[,c(3,9)]%>%
  unique()

myAssets <-  myAssets[order(myAssets$ticker),]

myAssets <- myAssets[c(1:8,10:29,31:35),] # <--- Eliminando COGNA e SIMH3

myProv <- function(df){
  df1 <- data.frame(matrix(data=NA, nrow = 1, ncol = 5))
  colnames(df1) <- c("Tipo do Provento", "Data de Aprovação", "Data-Com",
                     "Fator", "ticker")

  for (tick in df$ticker){
    url <- as.character(df[df$ticker == tick, 2])
      tableNodes <- tableWeb(url)

    aux <- XML::readHTMLTable(tableNodes[[8]])
    if (is.null(aux)){print(paste("Sem eventos para", tick))}
    else{
      print(paste("Com eventos para", tick))
    aux <- aux[2:nrow(aux),]
    aux$ticker <- tick

    df1 <- rbind(df1, aux)
    }
  }
  df1 <- df1[2:nrow(df1),]
  df1[,4] <- 1 + as.numeric(gsub(",", ".", df1[,4]))
  df1[,2] <- as.Date(df1[,2], format = "%d/%m/%Y")
  df1[,3] <- as.Date(df1[,3], format = "%d/%m/%Y")
  return(df1)
}

myEventos <- myProv(myAssets)

save(myEventos, file = "data/myEventos.rda")