R/generica.R

In gomesleduardo/ipeadataRio: Atualizacao e verificacao do IpeaData

# --------------------------------------------------------- #
# |   INSTITUTO DE PESQUISA ECONOMICA APLICADA - IPEA     | #
# |                    PROJETO IPEADATA                   | #
# --------------------------------------------------------- #
# |   COORDENADOR: ERIVELTON P. GUEDES                    | #
# --------------------------------------------------------- #
# |   PROGRAMADOR: LUIZ EDUARDO S. GOMES                  | #
# --------------------------------------------------------- #
# |   GENERICA PARA VERIFICACAO                           | #
# --------------------------------------------------------- #

#' @title Planilha GENERICA para verificacao
#'
#' @description Retorna a planilha \code{GENERICA} para verificacao a
#' partir do \code{SERCODIGOTROLL}.
#'
#' @param serie Vetor contendo o \code{SERCODIGOTROLL}
#' da(s) serie(s) requisitada(s).
#'
#' @author Luiz Eduardo Gomes, \email{luiz.gomes@@ipea.gov.br}
#' ou \email{gomes.leduardo@@gmail.com}.
#'
#' @examples
#' # ------ Multiplas series, exibindo grafico
#' gen_verif <- generica(serie = c("GM12_DOW12", "ABATE12_ABPENO12",
#' "MTE12_SALMIN12"))
#'
#' @export

generica <- function(serie) {

  # ------ Desligando notacao cientifica
  options(scipen = 999)

  # ------ Encontrando nomes
  nomes <- EncontraSerie(serie = serie, plotar = FALSE)
  nomes <- nomes$SERCODIGOTROLL

  # CARREGANDO METADADOS ----------------------------------------

  # ------ Abrindo conexao
  con <-  RODBC::odbcConnect(dsn = "ipeadata", uid = "", pwd = "")

  # ------ Consulta SQL
  serie <- RODBC::sqlQuery(con,
                           paste0("SELECT ipea.vw_Valor.SERCODIGO, ",
                                  "CAST (ipea.vw_Valor.VALDATA as NUMERIC) as VALDATA, ",
                                  "ipea.vw_Valor.VALVALOR FROM ipea.vw_Valor ",
                                  "WHERE ipea.vw_Valor.SERCODIGO IN (",
                                  paste0("'", nomes, "'", collapse = ", "),") ",
                                  "and ipea.vw_Valor.VALVALOR IS NOT NULL order by VALDATA;"))

  # ------ Fechando conexao
  RODBC::odbcClose(con)

  # ORGANIZANDO ----------------------------------------

  # ------ Planilha Generica
  GENERICAv <- data.frame(VALDATA = unique(serie$VALDATA))
  for (i in 1:length(nomes)) {
    GENERICAv <- merge(GENERICAv,
                       subset(x = serie,
                              subset = serie$SERCODIGO == nomes[i],
                              select = c("VALDATA", "VALVALOR")),
                       by = "VALDATA",
                       all = TRUE)
    names(GENERICAv)[i+1] <- nomes[i]
  }

  # ------ Editando formato de data
  GENERICAv$VALDATA <- as.Date(GENERICAv$VALDATA, origin = "1900-01-01")

  # ------ Removendo possivel linha de NA
  GENERICAind <- data.frame(ind = is.na(GENERICAv[, -1]))
  erros <- sum(rowSums(GENERICAind) == ncol(GENERICAind))
  if (erros > 0) {
    GENERICAv <- GENERICAv[-which(rowSums(GENERICAind) == ncol(GENERICAind)), ]
  }

  # ------ Resultado
  return(GENERICAv)
}