R/simpl_fundos.R

In lucasan93/dadosCVM: Obtains investment funds' data from CVM

#' Simplify funds names
#'
#' @param names funds names to simplify
#'
#' @return character vector
#' @export
#'

simpl_funds <- function(names){

  rem <- stringr::str_to_upper(c('de', 'investimento', 'fundo', 'em', 'multimercado',
                                 'cotas', 'privado', 'fundos', 'crédito', 'exterior',
                                 'no', 'renda', 'ações', 'fixa', 'fi', 'credito',
                                 'financeiro', 'fic', 'quotas', 'direitos', 'prazo', 'ie', 'participações',
                                 'creditórios', 'di', 'longo', 'prev', 'fdo', 'priv', 'invest', 'multiestrategia', 'inv', 'referenciado', 'previdenciário', 'long', 'aplicacao', 'cred', 'ficfi', 'não', 'imobiliário', 'padronizados', 'fdos', 'aplic', 'mult', 'previdência', 'acoes', 'fia', 'fidc', 'creditorios', 'curto', 'créd', 'fii', 'investimentos', 'rf', 'fim', 'cp', 'fmia', 'exclusivo', 'lp', 'multiestrategia', 'am', 'total', 'multi', 'qualificado', 'faq', 'fip', 'yield', 'participacoes', 'fife', 'multissetorial', 'np', 'previdenciario', 'imobiliario', 'moderado', 'incentivado', 'alocação', 'aplicação', 'rv', 'fc', 'performance', 'fof', 'soberano', 'dividendos', 'fmp', 'financ', 'fgts', 'conservador', 'fie', 'multigestor', 'fiq', 'nao', 'exclusive', 'estruturado', 'empresas', 'liquidez', 'públicos', 'títulos', 'fin', 'invest', 'financ', 'financ', 'F A Q', 'padronizado'))

  stringr::str_squish(stringr::str_remove_all(gsub('[[:punct:]]',' ', names), paste(paste0('\\b',rem,'\\b'),collapse = '|')))

}